>DECLARE INTEGER GetPrivateProfileString IN Win32API ; > String cSection, String cKey, String cDefault, String @cBuffer, ; > Integer nBufferSize, String cINIFile > >lcBuffer = SPACE(255) + CHR(0) > >*-- Replace tcSection, tcEntryName and lcINIFile with valid information of >*-- your ini file. >lnNumBytes = GetPrivateProfileString(tcSection, tcEntryName, "", ; > @lcBuffer, LEN(lcBuffer), lcINIFile) >? LEFT(lcBuffer, lnNumBytes) >>
>CD yourprojectdir >DO setx >x = createobject("cINIFile") >*-- Again replace the variables >? x.Get(tcSection, tcEntryName, "ERROR", tcINIFile) >>