*-- Определяем внешние DLL библиотеки
DECLARE INTEGER GetPrivateProfileString IN Win32API  AS GetPrivStr ;
	STRING cSection, STRING cKey, STRING cDefault, STRING @cBuffer, ;
	INTEGER nBufferSize, STRING cINIFile

*-- "Обертка" для Win API функции, которая позволяет профилировать INI файлы для пользователей программы (oApp.User_ID)
FUNCTION ReadFromINIFile
	LPARAMETERS m.lcName, m.lcRasdel, m.lcIniFile
	*-- Чтение одного параметра из INI - файла
	LOCAL  lcBuffer, lcRetValue, lPath
	m.lPath = SYS( 5 )+SYS( 2003 ) + '\'
	DO CASE
		CASE VARTYPE(m.lcIniFile) == "C"
			m.lcIniFile = lcIniFile
		CASE VARTYPE(m.lcIniFile) == "N" AND TYPE("oApp.User_ID") = "N"
			IF !DIRECTORY("PROFILES")
				MKDIR PROFILES
			ENDIF
			m.lPath = SYS( 5 )+SYS( 2003 ) + '\PROFILES\'
			m.lcIniFile = "USER_" + ALLTRIM(STR(oApp.User_ID)) + ".INI"
		OTHERWISE
			m.lcIniFile = "CONFIG.INI"
	ENDCASE
	m.lcBuffer = SPACE( 100 ) + CHR( 0 )
	*-- Читаем из INI файла
	m.lcRetValue = ""
	TRY
		IF GetPrivStr(m.lcRasdel, m.lcName, "", @lcBuffer, LEN(m.lcBuffer), ;
				m.lPath + m.lcIniFile) >  0 
			m.lcRetValue = ALLTRIM(LEFT(m.lcBuffer, AT(CHR( 0 ), m.lcBuffer)- 1 ))
		ENDIF
	CATCH
		m.lcRetValue = ""
	ENDTRY
	RETURN m.lcRetValue
ENDFUNC
*-- Пример чтения параметра "Дата с" из раздела THISFORM.Capton в общем (не профилируемом) INI - файле
m.lcData = CTOD(ReadFromINIFile( "Дата с", THISFORM.Caption))

LOCAL m.lnCount, m.i,  m.lcName
m.lnCount = VAL(ReadFromINIFile( "Col", "KredType", "CONFIG.INI")
FOR m.i =  1  TO m.lnCount
    m.lcName = ReadFromINIFile( "Name", CAST( m.i AS V( 3 )), "CONFIG.INI")  
    IF !EMPTY(m.lcName)
        THISFORM.List1.AddItem(m.lcName)
    ENDIF
ENDFOR