Окна

← →
Chuha (2003-11-11 15:09) [0]

Как минимизиравть все окна кроме моего!!! :????

← →
Murad © (2003-11-11 15:11) [1]

Используй EnumWindows

примерно так

function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall; // Обязательно stdcall !!!
Var
Nm:Array[0..255] of Char;
ZNAME:string;
Begin
If Wd<>Form1.Handle then // если это не наша программа
If IsWindowVisible(WD) then // если окно видимо
If not IsIconic(WD) then // если окно не свернуто
If isWindow(WD) then begin // и вообще это - окно.
SendMessage(WD,WM_SYSCOMMAND,SC_xxx,0);
end;

EnumProc := TRUE; // продолжаем перебирать все окна системы.
end;

procedure TForm1.Button1Click(Sender: TObject); // допустим, закрываем по нажатию на клавишу
begin
EnumWindows (@EnumProc, 0); // отрабатываем сворачивание окон.
end;

Окна Найти похожие ветки