Обновлено: 01 декабря, 2018

Сворачиваем все окна в Delphi

....
var
  Form1: TForm1;
  Total: 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
  PostMessage (WinHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
  Inc(Total);  EnumProc := TRUE;
End;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Total:=0;
  EnumWindows (@EnumProc, 0);
end;

(10 оценок, среднее: 5,00 из 5)

Загрузка...