Помощь - Поиск - Пользователи - Календарь
Полная версия: Запуск программы из-под Делфи
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
klem4
Подскажите в каком направлении мне копать в DRKB, не могу найти, нужно написать программу, которая будет запускать win32 приложение и на ЕГО форме нужно нажать кнопку.
klem4
Нашел в DRKB
Цитата
Как эмулировать нажатия клавиш в другой программе
Какой кошмар smile.gif Буду разбираться.
klem4
Модуль не компилируется, выдает множество ошибок, взгляните пожалуйста.

такое впечатление что там синтаксические ошибки тоже присутствуют ...
Malice
Цитата(klem4 @ 12.08.05 10:10)
Модуль не компилируется, выдает множество ошибок, взгляните пожалуйста.
такое впечатление что там синтаксические ошибки тоже присутствуют ...


Строка №357:
 While (I

на
 While (i<l) do begin


Строка №478:
    if (WindowHandle=0) then EnumWindows(@EnumWindowsProc,Intege (PChar(WindowName))); 


на
    if (WindowHandle=0) then EnumWindows(@EnumWindowsProc,IntegeR (PChar(WindowName))); 


Это для синтаксиса, дальше не проверял smile.gif
volvo
klem4, а вот так не проще:
Var
  TheWindowHandle, hw:HWND;
...
  { Здесь запускаешь программу... }

  TheWindowHandle := FindWindow(nil, 'заголовок твоей программы');
  If TheWindowHandle <> 0 Then Begin { если окно найдено }
    { ищешь кнопку }
    hw := FindWindowEx(TheWindowHandle,0,nil, Pchar('название кнопки')); 
    SendMessage(hw, BM_CLICK, 0, 0); { и нажимаешь ее }
  End
?
klem4
Спасибо большое!!! Все получилось smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.