GetUserNameEx

[DeddyH]

Dann versuch mal die "einfache" Variante (keine Garantie, nur schnell heruntergetippt):

Delphi-Quellcode:

function CurrentUser: string;
var iLen: DWORD;
begin
  iLen := 1024;
  SetLength(Result,iLen);
  if Windows.GetUserName(PChar(Result),iLen) then
    SetLength(Result,StrLen(PChar(Result)))
  else
    SetLength(Result,0);
end;