如何在 VFP 中读写 INI 文件

* 在 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