*-- 定义读应用程序 INI 文件的DLL函数
　　DECLARE INTEGER GetPrivateProfileString IN Win32API AS GetPrivStr ;
　　String cSection, String cKey, String cDefault, String @cBuffer, ;
　　Integer nBufferSize, String cINIFile
　　*-- 定义写应用程序 INI 文件的DLL函数
　　DECLARE INTEGER WritePrivateProfileString IN Win32API AS WritePrivStr ;
　　String cSection, String cKey, String cValue, String cINIFile
　　&& 调用
　　&& 以下程序将字符串abc=12,24写入当前目录中的formposi.ini文件中的WindowPositions段中：
　　LOCAL lcValue,lcEntry
　　lcEntry = "abc"
　　lcValue = '12,24'
　　=WritePrivStr("WindowPositions", lcEntry, lcValue, CURDIR() + "formposi.ini")
　　&& 以下程序从当前目录中的formposi.ini文件中的WindowPositions段中读取以前保存的字符串,并在wait window中显示出来
　　LOCAL lcBuffer, ;
　　lcOldError, ;
　　lnTop, ;
　　lnLeft, ;
　　llError, ;
　　lnCommaPos, ;
　　lcEntry
　　lcEntry = 'abc'
　　lcBuffer = SPACE(10) + CHR(0)
　　lcOldError = ON('ERROR')
　　*-- 在INI 文件中读取窗口位置
　　IF GetPrivStr("WindowPositions", lcEntry, "", ;
　　@lcBuffer, LEN(lcBuffer), ;
　　CURDIR() + "formposi.ini") > 0
　　*-- 如果分解参数时出现错误,
　　*-- 忽略该串并使用表单的默认值
　　ON ERROR llError = .T.
　　lnCommaPos = AT(",", lcBuffer)
　　lnTop = VAL(LEFT(lcBuffer, lnCommaPos - 1))
　　lnLeft = VAL(SUBSTR(lcBuffer, lnCommaPos + 1))
　　ON ERROR &lcOldError
　　IF !llError
　　wait window str(lnTop)+chr(13)+str(lnLeft)
　　ENDIF
　　ENDIF

　　编辑特别推荐:

　　全国计算机等级考试二级vf练习一

　　全国计算机等级考试二级vf练习二

　　全国计算机等级考试二级vf练习三

　　全国计算机等级考试二级vf练习四

　　全国计算机等级考试二级vf练习五

　　全国计算机等级考试二级vf练习六

　　全国计算机等级考试二级vf练习七

　　全国计算机等级考试二级vf练习八

　　全国计算机等级考试二级vf练习九

　　全国计算机等级考试二级vf练习十