Delphi-Help

Главная Статьи Windows Как реализовать функцию "свернуть все окна"?

Как реализовать функцию "свернуть все окна"?

Оцените материал
(0 голосов)


Как реализовать функцию "свернуть все окна"?

procedure MinimizeAll;
var
  Wnd: HWND;
begin
   Wnd := FindWindow( 'Shell_TrayWnd', nil );
   if Wnd <> 0 then
      SendMessage( Wnd, WM_COMMAND, $019F, 0 );
end;
Прочитано 4607 раз

Авторизация



Счетчики