Свернуть все окна
Свернуть все окна
Свернуть все окна var Form1: TForm1; Count: integer; implementation {$R *.dfm} function EnumProc(WinHandle: HWnd; Param: LongInt): Boolean; stdcall; begin if (GetParent(WinHandle) = 0) and (not IsIconic(WinHandle)) and (IsWindowVisible(WinHandle)) then begin PostMessage(WinHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0); Inc(Count); end; EnumProc := TRUE; end; procedure TForm1.Button1Click(Sender: TObject); begin Count := 0; EnumWindows(@EnumProc, 0); end;
