1

Есть две программы, обе написанные на delphi. Нужно чтобы первая программа сама заходила во вторую и нажимала button1.

Так открывается программа

ShellExecute(handle,'open','Test.exe',nil,nil,SW_SHOW);

А как сделать чтоб еще и нажимала на кнопку button1

Если можно код.

2
  • Через WinApi, SendMessage, по-моему
    – Umed
    26 дек 2015 в 4:41
  • 1
    Нужно найти окошко целевой программы (windows handle), найти handle кнопки и заслать ему, как подсказывают выше, мессагу. Учите Winapi. Может что на этом сайте найдёте что-нибудь готовоеhttp://delphikingdom.ru/. Такой же старый как delphi, а старые люди знали как такое дело провернуть. (Сам знал, но забыл:)
    – Sergey
    26 дек 2015 в 4:54

4 ответа 4

3

Если Вы можете вносить правки в обе программы, то можно сделать таким образом, чтобы первая программа в отдельном потоке ожидала некоего события, которое пошлет ему другое приложение, при наступлении которого первое приложение нажимало бы кнопку. Такое взаимодействие можно организовать, например, с помощью мьютексов, сокетов или какой-нибудь другой технологии (см. межпроцессное взаимодействие).

Если же Вам нужен результат, а не текст программы, то можно воспользоваться какой-нибудь готовой программой для автоматизации нажатия кнопок, например, Sikuli Script.

2

попробуйте следуюший код

Procedure ClickSomewhere(WindowName, WindowCaption: PChar; X,Y:Integer);
Var
  hParent : HWND;
Begin
 hParent := FindWindow(WindowName, WindowCaption);
 if hParent<>0 Then
  Begin
   BringWindowToTop(hParent);
   Application.ProcessMessages; // not sure that is useful
   SendMessage(hParent, BM_CLICK, X,Y);
  End;
End;

тут нужно указать название второй программы через WindowCaption

X,Y это координаты куда надо нажать в форме

1
  • Желательно findwindow продолжить до самой кнопки. В дельфи вроде была утилитка, позволяющая просматривать всё дерево окошек любой программы. С её помощью определить путь поиска и закодировать его в своей программке-нажималке.
    – Sergey
    27 дек 2015 в 8:30
0

Попробуй через имитацию клика мыши. Лично я не вижу других вариантов. Только есть одно условие, твоя вторая программа обязательно запускаться в определенном месте на экране.

1
  • Постарайтесь писать более развернутые ответы. Поясните, на чем основано ваше утверждение? 26 дек 2015 в 12:23
0

если программы обе ваши. то в ведомой поставьте фокус по умолчанию на нужную кнопку. и после вызова ShellExecute посылаете ей ентер. еще вариант если обе программы ваши то в ведомой программе пропищите запуск с ключем который будет нажимать нужную вам кнопку. а запускайте с ShellExecute уже с нужным ключем.

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.