BUffer leeren.

[marabu]

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