Текущий архив: 2003.11.20;
Скачать: 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 вся ветка
Текущий архив: 2003.11.20;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.015 c
