ShIvADeSt
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Tema
Цитата:| Мне нужно нажимать Button1, а мышка должна сэмулировать клик где бы она не находилась - над любым чужим окном. |
вот кусок
Цитата:
Как то пробегала в эхе такая процедура:
{нажимает кнопку в окне с заданным именем}
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;exit;end;
b_handle:=FindWindowEx(w_handle,0,nil,pchar(button_name));
if b_handle=0 then begin result:=false;exit;end;
SendMessage(b_handle,bm_click,0,0);
result:=true;
end;
|
в качестве параметра название окна и текст кнопки.
----------
И создал Бог женщину... Существо получилось злобное, но забавное... |
|
