Einzelnen Beitrag anzeigen

StoRmtec

Registriert seit: 6. Jan 2003
209 Beiträge
 
#1

Text in Statusbar einfügen

  Alt 23. Mär 2005, 07:16
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
  Mit Zitat antworten Zitat