Riesen Dank Euch beiden!
Ihr habt wie immer richtig gelegen. Nur der Vollständigkeit halber:
Delphi-Quellcode:
Function GetUserNameEx(NameFormat: DWORD; lpNameBuffer: PChar; Var nSize: DWORD): Boolean; Stdcall;
External 'secur32.dll' Name 'GetUserNameExA';
Function NameDisplay: String;
Const
nfNameDisplay = 3; // A "friendly" display name
Var
Buffer : Array [0..1024] Of Char;
Size : DWORD;
Begin
Size:=SizeOf(Buffer);
If GetUserNameEx(nfNameDisplay, @Buffer, Size) Then
Result:=Buffer
Else Result:='';
End;
Gruß, Alex