Последние записи
- Добавить программу в автозагрузку
- Вырезать из http заголовков get параметр
- Проигрывать звук в приложении только если «стоит галочка»
- Как проверить загружена или нет в image картинка?
- Динамический подобрать размер шрифта для строки под определенную область в пикселях
- Как вывести все значения элементов массива в label?
- Является ли оператор цикла оператором ветвления?
- Рассылка. Выпуск 141
- Способы защиты данных в файле
- Дистанционное образование
27th
Янв
Найти окна с определенным словосочетанием
Posted by Chas under Delphi
Как найти окно с заранее известным текстом – это ясно, а вот как найти окно с определенным словом в этом тексте.
tozter
Сделал оцените:
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));
for W := 1 to MaxNameWin do
begin
position := AnsiPos('progname'), StrPas(buff));
if position <> 0 then
PostMessage(wnd, WM_CLOSE, 1,0);
CloseWindow(wnd);
end;
end;
wnd := GetWindow(wnd, gw_hwndnext);
end;