FUNCTION config
PARAMETERS lcParametr
LOCAL loFile, lcZnach, lcResalt
lcParametr=LOWER(lcParametr)
lcResalt=.F.
loFile=FOPEN('config.fpw')
IF loFile> 0 
		DO WHILE !FEOF(loFile) 
			lcZnach = FGETS(loFile,  300 )
			IF LOWER(LEFT(lcZnach,AT('=',lcZnach)- 1 ))==lcParametr
				lcResalt=RIGHT(lcZnach,LEN(lcZnach)-AT('=',lcZnach))
			ENDIF 
		ENDDO 	
ELSE 
	MESSAGEBOX('невозможно открыть файл')
	RETURN .F.
ENDIF 
FCLOSE(loFile)
IF VARTYPE(lcResalt)=='L'
	RETURN .F.
ELSE 	
	RETURN lcResalt
ENDIF 
ENDFUNC