| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Программно вызвать нажатие кнопки [D5]
Sadya © (2003-11-02 14:52:00)
Мастера, вопрос такой:
есть чужая программа, я по ее заголовку могу получить дескриптор как окна, так и той кнопки, что мне нужна. Мне ее нужно нажать, т.е. вызвать функцию, которая происходит по нажатию
Текст моей попытки :
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;
Sadya (2003-11-02 16:13:00) [1]
Все ! Получилось ! Спасибо за совет
Sadya (2003-11-02 16:06:00) [2]
Хорошо, а пример кода: меня интересуют надо ли указывать координаты и если да, то как записать такие координаты : 186 26
default (2003-11-02 14:56:00) [3]
пошли WM_LBUTTONDOWN и WM_LBUTTONUP
| |
