Запуск программы из-под Делфи Опции

[klem4]

Подскажите в каком направлении мне копать в DRKB, не могу найти, нужно написать программу, которая будет запускать win32 приложение и на ЕГО форме нужно нажать кнопку.

[klem4]

Нашел в DRKB

Как эмулировать нажатия клавиш в другой программе

Какой кошмар Буду разбираться.

[klem4]

Модуль не компилируется, выдает множество ошибок, взгляните пожалуйста.

такое впечатление что там синтаксические ошибки тоже присутствуют ...

Сообщение отредактировано: klem4 - 12.08.2005 10:12

[Malice]

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

Строка №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))); 

Это для синтаксиса, дальше не проверял

[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]

Спасибо большое!!! Все получилось