Current User auslesen

[Kroko1999]

Delphi-Quellcode:

function UserName: string;
var
  Size: DWORD;
begin
  Size := MAX_PATH + 1;
  SetLength(Result, Size);
  if Windows.GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;