Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
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;