Сворачивание всех окон

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

function MyCallback(Wnd: THandle;Param: integer): boolean; stdcall;

var

style: longint;

tsb, rabst: integer;

begin

tsb:=FindWindow(‘Shell_TrayWnd’, nil);

rabst:=FindWindow(‘ProgMan’, ‘Program Manager’);

Result := Wnd 0;

style:=GetWindowLong(wnd,GWL_EXSTYLE);

style:=style and WS_EX_TOPMOST;

if Result and IsWindowVisible(Wnd)and (not IsIconic(WND)) and (wndtsb) and

(wndrabst) and (wndFindWindow(‘Indicator’,nil)) and

(styleWS_EX_TOPMOST)and(wndform1.handle)then

begin

ShowWindow(Wnd,sw_hide);

ShowWindow(Wnd,Param);

end;

end;

procedure ShowAllWindows(Cmd: integer);

begin

EnumWindows(@MyCallback,Cmd);

end;

теперь в любом месте программы, когда необходимо свернуть окна вызываем функцию:

ShowAllWindows(SW_SHOWMINIMIZED);

{/codecitation}

Добавить комментарий