Suche

EXTERNAL ARRAY regfn
EXTERNAL ARRAY callfn
jcRetVal = ""
SET LIBRARY TO SYS(2004) + "FOXTOOLS" ADDITIVE
IF m.jcAction = "WRITE"
jnFunc = RegFn("WritePrivateProfileString", "CCCC", "I")
IF m.jnFunc >= 0
jnRetval = CallFn(m.jnFunc, m.lpszSection, ;
m.lpszEntry, m.lpszString, ;
m.lpszFilename)
ENDIF
ELSE
IF EMPTY(m.lpszString)
lpszString = SPACE(10)
ENDIF
lpszReturnBuffer = REPLICATE(" ", 255)
cbReturnBuffer = 255
jnFunc = RegFn("GetPrivateProfileString", "CCC@CIC", "I")
IF m.jnFunc >= 0
jnCharCount = CallFn(m.jnFunc, m.lpszSection, m.lpszEntry, ;
m.lpszString, @lpszReturnBuffer, ;
m.cbReturnBuffer, m.lpszFilename)
jcRetval = ALLTRIM(CHRTRAN(m.lpszReturnBuffer, CHR(0),
"|"))
ENDIF
ENDIF
3 von 12
07.01.02 10:04