; Поиск чужого окна(кнопки, переключателя и т.п.)  в чужой программе и нажатие на него программно (около 3кб в exe) 
; Эти три нижние строки изменить в соответствии со своими нуждами. 

 WNDNAME1.s= "2" ; текст на кнопке!                          
 WNDNAME2 .s= "Калькулятор" ; текст главного окна! 
 EXENAME.s= "Calc.exe" ; Имя проги которую будем запускать! Но можно и руками запустить... 

 ; ********** Собственно программа******************* 

 RunProg = WinExec_(EXENAME.s, #SW_SHOWNORMAL ) 
  Repeat 
  ; Поиск главного окна программы 
  HWND1=FindWindow_(0,WNDNAME2) 
   Delay(1) 
  Until HWND1>0 ; если нашли хендл главного окна то выходим из цикла 
   
  ;Поиск кнопки 
 Repeat 
 HWND2=FindWindowEx_(HWND1,0, 0,WNDNAME1); ищем дочернее окно(кнопку) главного окна WNDNAME2 
 Delay(1) 
 Until HWND2>0;  если нашли хендл дочернего окна то выходим из цикла 

 EnableWindow_(HWND2,#True); ну это небольшой хакерский прием, если кнопка недоступна, хотя это лишнее - она и так нажмётся 

 PostMessage_(HWND2,#BM_CLICK,0,0); собственно нажимаем на кнопку 
 PostMessage_(HWND2,#BM_CLICK,0,0); собственно нажимаем на кнопку

 End

EXENAME.s= "Calc.exe" ; Имя проги которую будем запускать! Но можно и руками запустить... 

 ; ********** Собственно программа******************* 

 RunProg = WinExec_(EXENAME, #SW_SHOWNORMAL ) 


; Поиск главного окна программы - калькулятора
Repeat
  hWnd=FindWindow_("SciCalc",0) 
   Delay(1) 
  Until hWnd>0 ; если нашли хендл главного окна то выходим из цикла 

; передать фокус

Procedure SetForegroundWindow(hWnd) 
	 	 
	If GetWindowLong_(hWnd, #GWL_STYLE) & #WS_MINIMIZE 
	ShowWindow_(hWnd, #SW_MAXIMIZE) 
	UpdateWindow_(hWnd) 
	EndIf 
	foregroundThreadID = GetWindowThreadProcessId_(GetForegroundWindow_(), 0) 
	ourThreadID = GetCurrentThreadId_() 
	 
	If (foregroundThreadID <> ourThreadID) 
	AttachThreadInput_(foregroundThreadID, ourThreadID, #True); 
	EndIf 
	 	
	SetForegroundWindow_(hWnd) 
	
	If (foregroundThreadID <> ourThreadID) 
	AttachThreadInput_(foregroundThreadID, ourThreadID, #False) 
	EndIf   
	 
	InvalidateRect_(hWnd, #Null, #True) 
EndProcedure  

SetForegroundWindow(hWnd); передать фокус
;Вызвать справку 
keybd_event_(#VK_F1,1,0,0)
keybd_event_(#VK_F1,1,#KEYEVENTF_KEYUP,0)

ShowWindow_(hWnd,#SW_HIDE) ; спрятать 

Delay(3000)
ShowWindow_(hWnd,#SW_SHOW) ; показать

ShowWindow_(hWnd,#SW_SHOWMINIMIZED) ; спрятать