读取 Win.ini 文件是的指定节中的键 (RMH)

lcSection = "Mail" && section name
lcKeys = getKeysString (lcSection)

CREATE CURSOR csWinIni (keyname C(30), keyvalue C(200))

lcKey = ""
FOR ii=1 TO Len(lcKeys)
ch = SUBSTR (lcKeys, ii,1)
IF ch = Chr(0)
lcValue = GetKeyValue(lcSection, lcKey)
INSERT INTO csWinIni VALUES (lcKey, lcValue)
lcKey = ""
ELSE
lcKey = lcKey + ch
ENDIF
ENDFOR

SELECT csWinIni
GO TOP
BROW NORMAL NOWAIT

FUNCTION getKeysString (lcSection)
* returns all key names found in this section
* delimited with zero character

* Notice that lpKeyName declared as INTEGER
* to emulate an empty key name

DECLARE INTEGER GetProfileString IN kernel32;
STRING lpAppName,;
INTEGER lpKeyName,;
STRING lpDefault,;
STRING @ lpReturnedString,;
INTEGER nSize

nSize = 1024
lpReturnedString = Repli (Chr(0), nSize)

lnResult = GetProfileString (lcSection, 0, "#empty#",;
@lpReturnedString, nSize)
RETURN Left(lpReturnedString, lnResult)

FUNCTION GetKeyValue (lcSection, lcKey)

* Notice that lpKeyName declared as STRING
* because here we have a string value
* supplied to this procedure

DECLARE INTEGER GetProfileString IN kernel32;
STRING lpAppName,;
STRING lpKeyName,;
STRING lpDefault,;
STRING @ lpReturnedString,;
INTEGER nSize

nSize = 4096
lpReturnedString = Repli (Chr(0), nSize)

lnResult = GetProfileString (lcSection, lcKey, "#empty#",;
@lpReturnedString, nSize)
RETURN Left(lpReturnedString, lnResult)