Програмное нажатие кнопки в чужом окне

← →
DeMoN-777 © (2002-09-16 10:14) [0]

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

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;

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

← →
DeMoN-777 © (2002-09-16 11:07) [1]

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

← →
Malder © (2002-09-16 12:51) [2]

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

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

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

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

Удачи.

Програмное нажатие кнопки в чужом окне Найти похожие ветки