Пример кода
 1 ) записует
Function Create_File
	Parameters my_File
	Public my_file_param
	DELE FILE my_File
	my_file_param = FCREATE(my_File)
	IF my_file_param <  0 
		my_file_param =  0 
	ENDIF
EndFunc

Function Zap_File_Form
	Parameters Chto_Zap
	IF TYPE(Chto_Zap) #  "O"  or ISNUL(&Chto_Zap) or EMPTY(my_file_param)
		RETURN
	ENDIF
	FPUTS(my_file_param,Chto_Zap)
	my_chislo = Chto_Zap + '.WindowState'
	FPUTS(my_file_param,my_param_pered)
	IF &my_chislo #  0 
		my_prim_windst = Chto_Zap + '.WindowState'
		&my_prim_windst =  0 
		my_visib = Chto_Zap + '.Visible'
		&my_visib = .T.
		&my_visib = .F.
	ENDIF
	my_chislo = Chto_Zap + '.Left'
	my_param_pered = '.Left=' + Alltrim(STR(&my_chislo))
	FPUTS(my_file_param,my_param_pered)
и т. д.
=FCLOSE(my_file_param)
EndFunc

 1 ) зачитует
Function zachit_first_file
	Lparameters my_file
	IF !FILE(my_file)
		my_form = LEFT(my_file,LEN(my_file)- 4 )
		IF TYPE(my_form) =  "O"  and !ISNUL(&my_form)
			my_fipol = my_form + '.AutoCenter=.T.'
			&my_fipol
			my_fipol = my_form + '.Resize'
			&my_fipol
			my_fipol = my_form + '.panel_standart'
			&my_fipol
			my_fipol = my_form + '.panel_format'
			&my_fipol
		ENDIF
		RETURN
	ENDIF
	Public first_zachit_file
	first_zachit_file = Fopen(my_file)
	my_fipolnit = ''
	my_form = ALLTRIM(FGETS(first_zachit_file))
	IF first_zachit_file >  0 
		DO While !Empty(my_form) AND !EOF(first_zachit_file)
			my_form = IIF(!Empty(my_fipolnit),my_fipolnit,my_form)
		    WITH &my_form
			my_fipolnit = ALLTRIM(FGETS(first_zachit_file))
			DO While LEFT(my_fipolnit, 1 ) =  "."  AND !EOF(first_zachit_file)
				 &my_fipolnit
			     my_fipolnit = ALLTRIM(FGETS(first_zachit_file))
			ENDDO
			my_form = IIF(Empty(my_fipolnit),my_fipolnit,my_form)
		    ENDWITH
		ENDDO
		=Fclose(first_zachit_file)
	ENDIF
	Release first_zachit_file
EndFunc

TYPE( "MyForm" ) =  "O"  && Текущая форма...
WITH &my_form
        my_fipolnit =  ".Width = 200 "
        &my_fipolnit
ENDWITH

TYPE( "MyForm" ) =  "O"  && Текущая форма...
WITH &my_form
        my_fipolnit =  ".Width = 200 "
        &my_fipolnit &&Ошибка
ENDWITH

TYPE( "MyForm" ) =  "O"  && Текущая форма...
     my_fipolnit = my_form +  ".Width = 200 "
     &my_fipolnit

Есть еще пару вопросов: 
 1 )Можно ли остановить выполнение проги при возникновении ошибки 
например 
on error do ob_err with error() 
(код программы) 
on error 
Надо что б зашло в обработчик ошибок выдало нужную мессагу и назад не вернулось на выполнение... 

 2 )Можно ли узнать кем-кеми занят файл и послать им мессагу что б отдыхали... 

Всем заранее спасибо...