* 在 VFP 中读写 INI 文件
* 声明API函数
DECLARE INTEGER WritePrivateProfileString IN Win32API AS WritePrivStr ;
String cSection, String cKey, String cValue, String cINIFile
DECLARE INTEGER GetPrivateProfileString IN Win32API AS GetPrivStr ;
String cSection, String cKey, String cDefault, String @cBuffer, ;
Integer nBufferSize, String cINIFile
* 声明变量
Private fileName,summaryName,fieldName,fieldValue,Buffer
fileName = "test.ini" && INI文件名
summaryName = "Summary" && 小节名
fieldName = "Field" && 字段名称
fieldValue = "test" && 字段的值
* 写入INI文件
=WritePrivStr(summaryName, fieldName, fieldValue, fileName)
lcBuffer = space(100) + chr(0)
* 读取INI文件
=GetPrivStr(summaryName, fieldName, "", @Buffer, LEN(Buffer), fileName)
?lcBuffer