Скачать: CL | DM;

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

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

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

---

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

Используй EnumWindows

---

← →
Vlad Oshin ©   (2003-11-11 15:22) [2]

примерно так

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c