DO decl
 
LOCAL lnBufferSize, lcBuffer, lnReturn
lnBufferSize = 16384
lcBuffer = Repli(Chr(0), lnBufferSize)
 
*lnBufferSize = GetPrivateProfileSectionNames(@lcBuffer,;
                lnBufferSize, "c:\winnt\win.ini")
 
*lnBufferSize = GetPrivateProfileSectionNames(@lcBuffer,;
                lnBufferSize, "win.ini")
 
lnBufferSize = GetPrivateProfileSectionNames(@lcBuffer,;
                lnBufferSize, "c:\windows\desktop.ini")
 
*lnBufferSize = GetPrivateProfileSectionNames(@lcBuffer,;
                lnBufferSize, "c:\i386\display\disk_01\setup.ini")
 
lcBuffer = Left(lcBuffer, lnBufferSize) + Chr(0)
 
LOCAL ii, lcSubstr, ch
lcSubstr = ""
CREATE CURSOR csResult (section C(50))
 
FOR ii=1 TO lnBufferSize
    ch = SUBSTR(lcBuffer, ii,1)
    IF ch = Chr(0)
        IF Not Empty(lcSubstr)
            INSERT INTO csResult VALUES (m.lcSubstr)
            lcSubstr = ""
        ENDIF
    ELSE
        lcSubstr = lcSubstr + ch
    ENDIF
ENDFOR
 
SELECT csResult
GO TOP
BROWSE NORMAL NOWAIT
 
PROCEDURE  decl
    DECLARE INTEGER GetPrivateProfileSectionNames IN kernel32;
        STRING @lpszReturnBuffer, INTEGER nSize, STRING lpFileName