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

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

← →
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;

---

← →
DelphiN! ©   (2004-11-19 13:55) [3]

> [1] Jay   (19.11.04 09:10)


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

---

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

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



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