I not understtod why it not load the sections
I made
- Code: Select all Expand view
local cIniFilter := triM(cFilePath( GetModuleFileName( GetInstance() ) ) + "test" +".ini")
local aFilters := GETPVPROFSECTIONS( cIniFilter )
STATIC FUNCTION GETPVPROFSECTIONS( cIni )
LOCAL cBuf := SPACE( 65536 )
LOCAL aSec := {}
GETPRIVATEPROFILESECTIONNAMES( cBuf, 65536, cIni )
WHILE LEFT( cBuf, 1 ) != CHR( 0 )
AADD( aSec, LEFT( cBuf, AT( CHR( 0 ), cBuf ) - 1 ) )
cBuf = SUBSTR( cBuf, AT( CHR( 0 ), cBuf ) + 1 )
ENDDO
RETURN aSec
DLL STATIC FUNCTION GETPRIVATEPROFILESECTIONNAMES( cRetBuf AS LPSTR, nSize AS LONG, cFileName AS LPSTR ) AS DWORD;
PASCAL FROM "GetPrivateProfileSectionNamesA" LIB "kernel32.dll"
refer.
https://learn.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-getprivateprofilesectionnames
Not run on Windows 7/10 ?