Найти окно с определённым словом

@Edik_hacker · Регистрация: 24.03.2009

Author24 — интернет-сервис помощи студентам

Найти окно с определённым словом. Например мне нужно найти окно Блокнота, но не 'Безыменный - Блокнот', а именно то приложение в котором в заголовке окна встречается слово "Блокнот".

Код поиска окон:

Delphi

var wnd: hwnd;
 
    buff: array [0..127] of char;
    s: String;
 
begin
wnd := GetWindow(handle, gw_hwndfirst);
 
while wnd <> 0 do
begin // Не показываем:
  if (wnd <> Application.Handle) // Собственное окно
  and IsWindowVisible(wnd) // Невидимые окна
  and (GetWindow(wnd, gw_owner) = 0) // Дочерние окна
  and (GetWindowText(wnd, buff, SizeOf(buff)) <> 0) then
    begin
      GetWindowText(wnd, buff, SizeOf(buff));
      s := StrPas(buff);
    end;
  wnd := GetWindow(wnd, gw_hwndnext);
end;
 
end;

@igoriy · 26.10.2011, 05:20

А где вопрос?

@SYSM · 26.10.2011, 07:59

Delphi

var wnd: hwnd;
 
    buff: array [0..127] of char;
    s: String;
 
begin
wnd := GetWindow(handle, gw_hwndfirst);
 
while wnd <> 0 do
begin // Не показываем:
  if (wnd <> Application.Handle) // Собственное окно
  and IsWindowVisible(wnd) // Невидимые окна
  and (GetWindow(wnd, gw_owner) = 0) // Дочерние окна
  and (GetWindowText(wnd, buff, SizeOf(buff)) <> 0) then
    begin
      GetWindowText(wnd, buff, SizeOf(buff));
      s := StrPas(buff);
      if pos('Блокнот',S)<>0 then break;
    end;
  wnd := GetWindow(wnd, gw_hwndnext);
end;
// в wnd хендл окна, можно работать
end;

@igoriy 873 / 544 / 117 Регистрация: 24.11.2009 Сообщений: 1,329
	26.10.2011, 05:20	2
	А где вопрос? 0

	26.10.2011, 07:59