Скачать: CL | DM;

Программно вызвать нажатие кнопки   Найти похожие ветки 

← →
Sadya   (2003-11-02 14:52) [0]

Мастера, вопрос такой:
есть чужая программа, я по ее заголовку могу получить дескриптор как окна, так и той кнопки, что мне нужна. Мне ее нужно нажать, т.е. вызвать функцию, которая происходит по нажатию

Текст моей попытки :

procedure TForm1.Button1Click(Sender: TObject);
var WindowHandle,But: HWND;
str:String;
P:Pchar;
begin
str:="TEST";
WindowHandle:=FindWindow (nil, PChar(str));
But:=GetWindow(WindowHandle,GW_CHILD);
Memo1.Lines.Clear;
But:=GetWindow(But,GW_HWNDNEXT);
GetWindowText(But,P,100);
Memo1.Lines.Add(String(P));
SendMessage(But,WM_SETFOCUS,0,0);
SendMessage(But,WM_CHAR,VK_RETURN,1);
end;

---

← →
default ©   (2003-11-02 14:56) [1]

пошли WM_LBUTTONDOWN и WM_LBUTTONUP

---

← →
Sadya   (2003-11-02 16:06) [2]

Хорошо, а пример кода: меня интересуют надо ли указывать координаты и если да, то как записать такие координаты : 186 26

---

← →
Sadya   (2003-11-02 16:13) [3]

Все ! Получилось ! Спасибо за совет

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c