Declare Integer FindWindow in Win32Api;
	String @ lpClassName, ;
	String @ lpWindowName
	


Declare Integer ShowWindow in Win32Api;
	Integer  hWnd,;
	Integer  nCmdShow

#define SW_HIDE              0 
#define SW_SHOWNORMAL        1 
#define SW_NORMAL            1 
#define SW_SHOWMINIMIZED     2 
#define SW_SHOWMAXIMIZED     3 
#define SW_MAXIMIZE          3 
#define SW_SHOWNOACTIVATE    4 
#define SW_SHOW              5 
#define SW_MINIMIZE          6 
#define SW_SHOWMINNOACTIVE   7 
#define SW_SHOWNA            8 
#define SW_RESTORE           9 
#define SW_SHOWDEFAULT       10 
#define SW_MAX               10 

Declare Integer  LockWindowUpdate in Win32Api;
     Integer 	hWndLock
Declare Integer UpdateWindow in Win32Api;
     Integer  hWnd
#define LockTrayUpdate       LockWindowUpdate(FindWindow("Shell_TrayWnd", 0 ))
      
_VFP.autoyield=.f.
IF !_screen.visible
	_SCREEN.move(- 5000 ,- 5000 , 100 , 100 )
	_SCREEN.caption=sys( 2015 )
	i=FindWindow( 0 ,_screen.caption) 
	LockTrayUpdate
	ShowWindow(i,SW_RESTORE)
	_SCREEN.show
	_SCREEN.alwaysontop=.t.
	ShowWindow(i,SW_HIDE)
	LockWindowUpdate( 0 )
ENDIF

PUBLIC lo_frm
lo_frm =  CREATEOBJECT("frm_test")
IF VARTYPE(lo_frm)!="O" OR ISNULL(lo_frm)
	RETURN .f.
ENDIF
with lo_frm
	.autocenter=.t.
	.Show( 1 )
	* .Show() - не модально
endwith

with _screen
do while .t.
	ll_sdi=.f.
	for i= 1  to .formcount
		if .forms(i).showwindow = 2  .and..forms(i).visible 
			ll_sdi=.t.
			exit
		endif
	endfor


	if ll_sdi
		read events
	else
		exit
	endif
enddo
endwith	

* Форма
Define Class frm_test As Form
	Top = 10 
	Left  = 10 
	Width = 200 
	Height = 200 
	ShowWindow = 2 
	Visible = .T.
	Caption  = "Тест"
	Procedure Destroy
	Clear Events
	Endproc
Enddefine