****************************
* Функция чтения INI-файла *
* Структура файла:         *
* [Секция]                 *
* Ключ = Значение         *
****************************
FUNCTION ReadIni(cFileName, cSection, cKey)
	cError = "INI_FILE_ERROR"
	cSection = '[' + UPPER(cSection) + ']'
	cKey = UPPER(ALLTRIM(cKey))
	lSectFound = .F.
	IF FILE(cFileName)
		hFile = FOPEN(cFileName, 12)
		IF hFile < 0
			MESSAGEBOX('Не удалось открыть файл!')
			RETURN cError
		ELSE
			DO WHILE NOT FEOF(hFile)
				cBuff = FGETS(hFile, 2048)
				IF ALLTRIM(cBuff) = cSection OR lSectFound
					lSectFound = .T.
					nPos = AT('=', cBuff)
					IF nPos > 0
						cCurKey = UPPER(ALLTRIM(SUBSTR(cBuff, 1, nPos - 1)))
						IF cCurKey == cKey
							FCLOSE(hFile)
							RETURN SUBSTR(cBuff, nPos + 1)
						ENDIF
					ENDIF
					nPos = AT('[', cBuff)
					IF nPos > 0 AND ALLTRIM(cBuff) <> cSection
						FCLOSE(hFile)
						RETURN cError
					ENDIF
				ENDIF
			ENDDO
			FCLOSE(hFile)
			RETURN cError	
		ENDIF
	ELSE
		MESSAGEBOX('INI - файл не найден!')
		RETURN cError
	ENDIF	
ENDFUNC