Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];

Вниз

Поиск окна   Найти похожие ветки 

← →
anubis ©   (2006-03-05 08:38) [0]

Люди мне нужно чтобы прога искала окошко "Х"
я знаю что это делается так

if FindWindow(nil, &#8242;Безымянный - Блокнот&#8242;) <> 0 then
ShowMessage(&#8242;Окно найдено&#8242;)
else
ShowMessage(&#8242;Окно НЕнайдено&#8242;);

но почемуто не работает может есть ещё какието способы ?

---

← →
Handle   (2006-03-05 11:27) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
Wnd:           hWnd;
buff:          array[0..127] of Char;
begin
Wnd := GetWindow(Handle, gw_HWndFirst);
while Wnd <> 0 do begin
if IsWindowVisible(Wnd) and
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0)
then begin
GetWindowText(Wnd, buff, sizeof(buff));
if buff = "Безымянный - Блокнот" then
ShowMessage("Окно найдено");
end;
Wnd := GetWindow(Wnd, gw_hWndNext);
end;
end;

---

← →
anubis ©   (2006-03-05 16:15) [2]

не находит может чтонибудь другое?

---

← →
Zeqfreed ©   (2006-03-05 16:29) [3]

> почемуто не работает

Как не работает? Неужели, ни одного сообщения не появляется?

---

← →
Handle   (2006-03-05 16:32) [4]

> anubis ©   (05.03.06 16:15) [2]
> не находит может чтонибудь другое?


Ты блокнот то запускаешь когда ищешь его ?

---

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

Форум: "Начинающим";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.016 c