DECLARE INTEGER GetActiveWindow IN win32api 
DECLARE INTEGER GetWindow IN win32api INTEGER,INTEGER
DECLARE INTEGER GetWindowText IN win32api INTEGER, STRING, INTEGER
DECLARE INTEGER PostMessage IN user32 ;
        INTEGER hWindow, INTEGER Msg, ;
        STRING @wParam, INTEGER lParam

=WindowKill('Мой заголовок окна')
return

************************************
FUNCTION WindowKill
* Попытка закрыть окно Windows
* по фрагменту его заголовка.
************************************
PARAMETERS WindowName
LOCAL foxhwnd, hwndNext
foxhwnd = GetActiveWindow()
hwndNext = GetWindow(foxhwnd,GW_HWNDFIRST)
DO WHILE hwndNext <>  0 
	IF (hwndnext <> foxhwnd .AND. GetWindow(hwndnext,GW_OWNER) =  0 )
		Stuffer = SPACE( 64 )
		x = GetWindowText(hwndnext,@Stuffer, 64 )
		IF UPPER(WindowName)$UPPER(Stuffer)
			=PostMessage(hwndnext,WM_CLOSE, 0 , 0 )
			EXIT
		ENDIF
	ENDIF
	hwndNext = GetWindow(hwndnext,GW_HWNDNEXT)
ENDDO
RETURN