Hallo Sebastian,
falls du mit den vielen Vorschlägen immer noch Schiffbruch erleiden solltest:
Delphi-Quellcode:
function GetUserName: string;
var
buf: array [Byte] of Char;
size: Cardinal;
begin
size := SizeOf(buf);
if Windows.GetUserName(@buf, size)
then SetString(Result, buf, Pred(size))
else Result := '';
end;
Freundliche Grüße vom marabu