Как найти все окна с заданным заголовком и классом?

← →
Progh (2004-11-19 08:43) [0]

Как найти все окна с заданным заголовком и классом, при том что открыто их может быть несколько одинаковых

← →
Jay (2004-11-19 09:10) [1]

Repeat
handle := FindWindow("TForm1", "My Window"); //или на оборот
if handle = 0 then Break; //Выход из цикла при отсутствии такого окна
PostMessage(handle, WM_QUIT, 0, 0); //тушить их, например
Until false //Безконечный цикл

← →
easy © (2004-11-19 09:47) [2]

function EnumWindowsProc(Wnd: hWnd; Param: lParam): Bool; stdcall; var buf:array [0..MAX_PATH] of char; begin GetClassName(Wnd,buf,MAX_PATH); if buf="IEFrame" then begin GetWindowText(Wnd,buf,MAX_PATH); TMemo(Param).Lines.Add(buf); end; end; procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Clear; EnumWindows(@EnumWindowsProc, Longint(Memo1)); end;

> [1] Jay (19.11.04 09:10)

А что будет с твоим кодом, если окно не захочет закрываться? Наивный ты ;)

Как найти все окна с заданным заголовком и классом? Найти похожие ветки