http://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
Prototype.l pWritePrivateProfileString(lpApplicationName.p-unicode, lpKeyName.p-unicode, lpString.p-unicode, lpFileName.p-unicode)
Prototype.l pGetPrivateProfileString(lpApplicationName.p-unicode, lpKeyName.p-unicode, lpDefault.p-unicode, lpReturnString.p-unicode, nSize.l ,lpFileName.p-unicode)
Procedure.s GetINI (iniDatei.s, sSection.s, sKeyName.s, sDefault.s)
Protected.s sReturn
sReturn = Space(255)
OpenLibrary(0,"kernel32.dll")
GetPrivateProfileString.pGetPrivateProfileString = GetFunction(0, "GetPrivateProfileStringW")
sReturn = Left(sReturn, GetPrivateProfileString(sSection, sKeyName, sDefault, sReturn, Len(sReturn), iniDatei))
CloseLibrary(0)
ProcedureReturn sReturn
EndProcedure
Procedure WriteINI (iniDatei.s, sSection.s, sKeyName.s, sNewString.s)
OpenLibrary(0,"kernel32.dll")
WritePrivateProfileString.pWritePrivateProfileString = GetFunction(0, "WritePrivateProfileStringW")
WritePrivateProfileString(sSection, sKeyName, sNewString, iniDatei)
CloseLibrary(0)
EndProcedureGetPrivateProfileStringA -> GetPrivateProfileStringWVitor_Boss® wrote:I'm trying to receive strings from "kernel32dll" using a Unicode executable and aways fail. Someone can help-me?
[...]
The problem is when I compile using Unicode flag, always return a lot of "?". What i must do to fix this?