Vollen Benutzernamen ermitteln

[Luckie]

Zitat von Sir Rufo:

Allerdings ist der Code so nicht auf einem System >= Delphi 2009 zu empfehlen

Mein Code stammt auch noch aus Zeiten, da wusste Borland noch nicht mal wie Unicode geschrieben wird.

[himitsu]

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