Сворачиваем все окна в 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;
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий