Jupp, für ihn
aktuell irrelevant, aber nicht daß noch ein D2009+-Besitzer diesen Code bei sich einbaut.
Also mit Length funktioniert der Code überall. (
Ansi oder
Unicode)
[add]
Uhhh, ich seh's grad ... da ist nochein Fehler drin.
PChar und die AnsiVersion der Funktion importiert.
Delphi-Quellcode:
Function GetUserNameEx(NameFormat: DWORD; lpNameBuffer: PChar; Var nSize: DWORD): Boolean; StdCall;
External 'secur32.dll' Name {$IF SizeOf(Char) = 1} 'GetUserNameExA' {$ELSE} 'GetUserNameExW' {$IFEND};
Function GetUserNameExA(NameFormat: DWORD; lpNameBuffer: PAnsiChar; Var nSize: DWORD): Boolean; StdCall;
External 'secur32.dll' Name 'GetUserNameExA';
Function GetUserNameExW(NameFormat: DWORD; lpNameBuffer: PWideChar; Var nSize: DWORD): Boolean; StdCall;
External 'secur32.dll' Name 'GetUserNameExW';
entweder
PAnsiChar + die
Ansi-Version (A wie
Ansi)
,
PWideChar + die
Unicode-Version (W wie Wide)
oder
PChar + die Version, welche zum Compiler paßt