Помощь - Поиск - Пользователи - Календарь
Полная версия: Запуск программы из-под Делфи
Форум «Всё о Паскале» > 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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.