**********************************************************************

CLEAR ALL
CLOSE ALL
LOCAL INIFILE,lcEntry,lcValue

INIFILE="TDSoft.INI"
lcEntry="Умеет читать из INI файла"
lcValue="Да"
lcBuffer = SPACE(10)+ CHR(0)
*-- DECLARE DLL statements for reading/writing to private INI files
DECLARE INTEGER GetPrivateProfileString IN Win32API AS GetPrivStr ;
String cSection, String cKey, String cDefault, String @cBuffer, ;
Integer nBufferSize, String cINIFile

DECLARE INTEGER WritePrivateProfileString IN Win32API AS WritePrivStr ;
String cSection, String cKey, String cValue, String cINIFile

*-- Write the entry to the INI file
=WritePrivStr("Настройки программы", lcEntry, ;
lcValue, CURDIR() + INIFILE)

*-- Read the window position from the INI file
IF GetPrivStr("Настройки программы", lcEntry, "", ;
@lcBuffer, LEN(lcBuffer), ;
CURDIR() + INIFILE) > 0
lnPos = AT(CHR(0), lcBuffer)
MyValue=LEFT(lcBuffer,lnPos - 1)
?MyValue
ENDif