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