用VFP读写*.INI 文件

* 在 VFP 中读写 INI 文件
* 声明API函数
*定义写应用程序 INI 文件的DLL函数
DECLARE INTEGER WritePrivateProfileString IN Win32API AS WritePrivStr ;
String cSection, String cKey, String cValue, String cINIFile
*定义读应用程序 INI 文件的DLL函数
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(255) + chr(0)
* 读取INI文件
=GetPrivStr(summaryName, fieldName, "", @lcBuffer, LEN(lcBuffer), fileName)
?lcBuffer