Windows-User auslesen?

[ReDoX]

Ja ,
das geht mit

Delphi-Quellcode:

function GetUsername: string;
var
  Buffer: array[0..255] of Char;
  Size: DWord;
begin
  Size := SizeOf(Buffer);
  if not Windows.GetUserName(Buffer, Size) then
    RaiseLastOSError;
  SetString(Result, Buffer, Size - 1);
end;

Mfg ReDoX