'User32.dll Wrapper
Global User32_DllHandle:Int
Function FunctionExists:Int(func:Byte Ptr)
   If Int(func)<>0 Then Return True
   Return False
EndFunction 

'User32_DllHandle = LoadLibraryA("User32.dll")
'If User32_DllHandle = 0 Then RuntimeError("User32.dll dynamic linking failed")
Extern "Win32"
    Function GetPrivateProfileString_:Int(an:String, kn:String, df:String, rs:Byte Ptr, sz:Int, fn:String)
EndExtern
'"Win32" = GetProcAddress(User32_DllHandle, "_GetPrivateProfileStringA@24")


If FunctionExists(GetPrivateProfileString_) = False
    RuntimeError("User32.dll dynamic linking failed -> GetPrivateProfileStringA")
Else
    Function GetPrivateProfileString:String(sSection:String, sKey:String, sDefault:String, sFile:String)
        Local Bank:TBank = CreateBank(256), BankPtr:Byte Ptr = Bank.Lock()
        Local ReturnString:String = sSection+sKey+sDefault+sFile
        
        If GetPrivateProfileString_(sSection, sKey, sDefault, BankPtr, 255, sFile)
            Bank.Unlock()
            
            For Local BankPos:Int = 0 To 255
                Local Char:Byte = Bank.PeekByte(BankPos)
                If Char = 0 Then Exit
                ReturnString = ReturnString + Chr(Char)
            Next
        Else
            Bank.Unlock()
        EndIf
        
        BankPtr = Null
        Bank = Null
        
        GCCollect()
        
        Return ReturnString
    EndFunction
    DebugLog GetPrivateProfileString("A", "B", "C", "D")
EndIf