2,722
社区成员
发帖
与我相关
我的任务
分享
cFile = GetFile('ini')
? readini('title', 'system', cFile)
? readini('caption', 'item3', cFile)
? readini('count', 'item3', cFile)
Function readini(iname,entry,inifile)
DECLARE INTEGER GetPrivateProfileString IN Win32API AS GetPrivStr STRING, STRING, STRING, STRING @, INTEGER, STRING
LOCAL lcbuffer, nn
lcbuffer = SPACE(255)
nn = getprivstr(ENTRY,ALLTRIM(INAME),"",@LCBUFFER,LEN(LCBUFFER),IIF(VARTYPE(INIFILE) = "C",INIFILE,CURDIR()+"Option.ini"))
RETURN Left(lcbuffer, nn)
EndFunc