Text in Statusbar einfügen

[StoRmtec]

Hallo

Und zwar bin ich dran meinen Anmeldename vom Windows in die Statusbar zu bekommen.

Ich ermittle den Namen so:

Delphi-Quellcode:

function GetCurrentUserName: string;
const
  cnMaxUserNameLen = 254;
var
  sUserName: string;
  dwUserNameLen: DWORD;
begin
  dwUserNameLen := cnMaxUserNameLen - 1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen);
  SetLength(sUserName, dwUserNameLen);
  Result := sUserName;
end;

Und wenn ich dann in der StatusBar das eingebe:

StatusBar1.Panels[1].Text := (GetCurrentUserName); dann zeigt er mir zwar den Benutzername an aber ich möchte das das so aussieht.

Benutzername: ..... und den Benutzername: kann i net anzeigen lassen.
Irgendetwas mache ich da falsch.
Vielleicht kann mir wer helfen.

mfg
StoRmtec

[Neelix]

Meinst Du das:
StatusBar1.Panels[1].Text := 'Benutzername: ' + GetCurrentUserName;

[StoRmtec]

Ja danke.
Ma jetzt bin ich wirklich auf der Leitung gestanden.

Danke

mfg
StoRmtec