КАК СВЕРНУТЬ ВСЕ ОКНА?? [D6, Win95/98, WinME, Win2k, WinXP]
Inquisitor © (2002-11-22 02:45:00)
Народ помогите плз!
Как из своей программы свернуть все окна?
И еще вопрос : Как корректно перезагрузить комп если запущено
ДОС приложение?
Заранее благодарен.
s.kaster (2002-11-22 05:47:00) [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)*/
Наверх 
ЧАТ |
Орешник |
|
