Как свернуть все окна?

← →
tytus (2004-05-22 11:19) [0]

Добрый день господа. Подскажите,какое сообщение послать системе чтобы свернуть все окна?

← →
KADAN © (2004-05-22 11:41) [1]

можно вот таким смешным путем:
keybd_event(VK_LWIN,0,0,0); keybd_event(ord("M"),0,0,0); keybd_event(ord("M"),0,KEYEVENTF_KEYUP,0); keybd_event(VK_LWIN,0,KEYEVENTF_KEYUP,0);

:-)

← →
KADAN © (2004-05-22 11:51) [2]

или можешь использовать BroadcastSystemMessage

← →
default © (2004-05-22 11:58) [3]

всем всем?даже тем которые невидимы, свёрнуты, ...?
можно через GetForegroundWindow сделать

{$APPTYPE CONSOLE}
program Minimize;
uses Windows,Messages;
var Count:integer;

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(Count);
end;
EnumProc := TRUE;
end;

begin
Count:=0;
EnumWindows (@EnumProc, 0);
Writeln("Minimized:",Count," windows");
end.

Как свернуть все окна? Найти похожие ветки