string abgeschnitten in CurrentUser Funktion?

[simlei]

Hallo!
Diesen Code hab ich mehrfach hier im Forum gefunden, als ich den gerade aktiven WinNT-User auslesen wollte.

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;

Leider gab die Funktion zwar das richtige Ergebnis, nur hängte sie an den String etwas an; im Debugger sieht dass dann z.B. so aus: user='Beispieluser'#0; diesen string konnte ich so an einen anderen anhängen, jedoch konnte ich an den string user nicht einen string anhängen. Wie bekomme ich es so hin, dass nur der Name bleibt, und dieser Abbruch verschwindet?
Danke schonmal!

MfG simlei

[toms]

Hallo

Schreibe anstatt

SetLength(Result, Size);
dies:

SetLength(Result, Size - 1);

[simlei]

(smash)
Danke!

Ich hatte die Idee auch dass ich die Länge verändere aber habe stattdessen die +1 am anfang weggemacht