Ich habe etwas herumprobiert wenn man den Aufruf der Funktion ändert, ist es erstmal egal wie viele Buchstaben der Name besitzt.
Delphi-Quellcode:
FUNCTION SteamGetUser(szUser: PChar; puUserChars: PCardinal;
uBufSize: Cardinal; bIsSecureComputer: Integer;
pError: PnduSteamError): Integer; cdecl; external 'steam.dll';
Delphi-Quellcode:
FUNCTION TnduSteam.GetUser:PChar;
VAR strProg: TnduSteamProgress; phGetUser: Cardinal; puUserChars:PCardinal; UserName:PChar;
BEGIN
phGetUser := SteamGetUser(UserName,puUserChars,1,1,@mError);
WHILE SteamProcessCall(phGetUser, @strProg, @mError) = 0
DO BEGIN
END;
result := UserName;
END;
Jedoch Loggt man sich nach dem Aufruf immer noch aus :gruebel:
Und zur EMailAdresse, es sind 4 Parameter beim Aufruf, jedoch weiß ich noch nicht genau welche dort hinein müssen.
Delphi-Quellcode:
FUNCTION SteamGetCurrentEmailAddress(szEmail: PChar; uBufSize: Cardinal;
puEmailChars: PCardinal; //bIsSecureComputer: Integer;
pError: PnduSteamError): Integer; cdecl; external 'steam.dll';
Wenn jemand noch eine Idee hat gerne her damit, schaden kann es ja nicht..