| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Програмное нажатие кнопки в чужом окне [D5, WinXP]

DeMoN-777 ©   (2002-09-16 10:14:00) 

Написал функцию, но не понимаю почему не работает, объясните плиз что не так ?

function PressButton(wind_name,button_name: string): boolean;
var
w_handle, b_handle: integer;
begin
w_handle:=FindWindow(nil,pchar(wind_name));
if w_handle=0 then
begin
result:=false;
ShowMessage("Нет окна");
exit;
end;
b_handle:=FindWindowEx(w_handle,0,nil,pchar(button_name));
if b_handle=0 then
begin
result:=false;
Showmessage("Нет кнопки");
exit;
end;
SendMessage(b_handle,bm_click,0,0);
result := true;
end;

Вызываю так...

procedure TForm1.Button1Click(Sender: TObject);
begin
PressButton("Caption окна", "Caption кнопки");
end;

Может ф-ию объявить где-нить надо ?

---

Almaz   (2002-09-17 01:19:00) [1]

> DeMoN-777 © (16.09.02 11:07)
> Всё, с этим я разобрался, работает.
> А как нажать на кнопку окна у которого BorderStyle=bsNone
> ?

В смысле нет заголовка? Ну тогда ищите, например, по имени класса.
FindWindow("имя класса", nil);

Удачи.

---

Malder   (2002-09-16 12:51:00) [2]

>А как нажать на кнопку окна у которого BorderStyle=bsNone ?

А какая разница какой у нее стиль ?

---

DeMoN-777   (2002-09-16 11:07:00) [3]

Всё, с этим я разобрался, работает.
А как нажать на кнопку окна у которого BorderStyle=bsNone ?
Если можно, пример дайте пожалуйста, или ссылку где про это почитать

---

Наверх