Code:
procedure MinimizeAll;
var
intHwnd: Integer;
begin
intHwnd := FindWindow('Shell_TrayWnd', nil);
PostMessage(intHwnd, WM_COMMAND, 419, 0);
end;
procedure MinimizeAll;
var
intHwnd: Integer;
begin
intHwnd := FindWindow('Shell_TrayWnd', nil);
PostMessage(intHwnd, WM_COMMAND, 419, 0);
end;
Šta je ono 419?
Kako uraditi MaximizeAll?
2. Kako promijeniti kursor?
3. Da li se mogu onemogućiti sistemski ključevi (Alt+Esc,Ctrl+Alt+Del,Alt+F4 i sl.)?
Treba da dari na svim windowsima!