While (I
While (i<l) do begin
if (WindowHandle=0) then EnumWindows(@EnumWindowsProc,Intege (PChar(WindowName)));
if (WindowHandle=0) then EnumWindows(@EnumWindowsProc,IntegeR (PChar(WindowName)));
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