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 you have read our privacy policy.

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