Доступ к программе

[Акашаев Нурлан]

Доброго дня/ночи! Меня интересует вопрос, как программно ввести данные в 2 edit'a программы и нажать кнопку? Программа не моя.

[boostman]

Попробуйте:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := 'test1';
  edit2.Text := 'test2';
end;

[evg_m]

FindWindow и поиск по форуму

[BOBAH13]

2 boostman:

Программа не моя.

Делается так, находите HWND окна куда ввести данные или нажать - функции FindWindow, FindWindowEx. Потом сообщения для едитов WM_SETTEXT для батона WM_LBUTTONDOWN & WM_LBUTTONUP.

[Акашаев Нурлан]

А вы не можете привести пример? С findwindow Я вроде разобрался, но дальше я уже не понимаю.

[BOBAH13]

var
  howner: hwnd;
  hchild: hwnd;
  hbutton: hwnd;
begin
  howner := FindWindow(NIL, 'окошечко');

  hchild := FindWindowEx(howner, 0, NIL, 'окошечко редактор');
  SetWindowText(hchild, 'текст окошечка редактора');
  
  hbutton := FinDWindowEx(howner, 0, NIL, 'кнопочка');
  SendMessage(hbutton, WM_LBUTTONDOWN, MK_LBUTTON, 0);
  SendMessage(hbutton, WM_LBUTTONUO, MK_LBUTTON, 0);
end;

вроде так...писал тут, так что разрешаю подправить если что

[Акашаев Нурлан]

А вводить вместо 'окошечко' как следует: 'send.exe' или его заголовок 'сэнд'?

[BOBAH13]

А вот вам встречный вопрос: Вы что ищите ехе файл или окно ? думаю вы поняли как ответ если ехе то это уже другая история

[Акашаев Нурлан]

Спасибо, BOBAH13! Вы мне очень помогли!

[EdNovice]

А есть ли обратная функция FindWindow, которая возвращает заголовок окна по hwnd?