КАК СВЕРНУТЬ ВСЕ ОКНА??

← →
Inquisitor (2002-11-22 02:45) [0]

Народ помогите плз!
Как из своей программы свернуть все окна?
И еще вопрос : Как корректно перезагрузить комп если запущено ДОС приложение?

Заранее благодарен.

← →
s.kaster © (2002-11-22 05:47) [1]

/* Hачало (MINIMIZE.DPR)
{$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 begin
PostMessage (WinHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
Inc(Count);
end;
EnumProc := TRUE;
end;

begin
Count:=0;
EnumWindows (@EnumProc, 0);
Writeln("Minimized:",Count," windows");
end.
конец (MINIMIZE.DPR)*/

КАК СВЕРНУТЬ ВСЕ ОКНА?? Найти похожие ветки