Entwickler-Ecke

Sonstiges (Delphi) - Benutzernamen ermitteln und anzeigen


agent_x - Fr 10.08.07 09:21
Titel: Benutzernamen ermitteln und anzeigen
hallo,
ich möchte, dass in meinem programm der Benutzername angezeigt wird.
Ein Script hab ich gefunden:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
function GetUsername: String;
var
  Buffer: array[0..255of Char;
  Size: DWord;
begin
  Size := SizeOf(Buffer);
  if not Windows.GetUserName(Buffer, Size) then
    RaiseLastOSError; //RaiseLastWin32Error; {Bis D5};
  SetString(Result, Buffer, Size - 1);
end;
.
aber jetzt will ich, dass der Bn angezeigt wird. Wie geht das?


Delete - Fr 10.08.07 09:35

Label1.Caption := GetUsername;


agent_x - Fr 10.08.07 09:44

danke hat sich geklärt
und noch eins, wie kann man, dass machen das der Bn nicht erst angezeigt wird wenn man auf die
Label klickt sondern schon am anfang des Programms?
hier mein jetziger Code von der Label3 [ist die Label wo der Benutzername stehen soll]:

Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.Label3click(Sender: TObject);
begin
Label3.Caption := GetUsername;
end;


arj - Fr 10.08.07 12:15

Das ganze ins FormShow oder FormCreate machen.


agent_x - Fr 10.08.07 12:20

also so oder wie:?

Delphi-Quelltext
1:
2:
3:
4:
procedure TForm.FormCreate (Sender: TObject)
begin
 Label3.Caption := GetUsername;
end;


Marco D. - Fr 10.08.07 12:24

user profile iconagent_x hat folgendes geschrieben:
also so oder wie:?

Delphi-Quelltext
1:
2:
3:
4:
procedure TForm.FormCreate (Sender: TObject)
begin
 Label3.Caption := GetUsername;
end;

:zustimm:


agent_x - Fr 10.08.07 12:25

klappt aber irgend wie nit


arj - Fr 10.08.07 12:31

Hast du im Objektinspektor das Ereignis FormCreate auch der Methode zugewiesen?


Chryzler - Fr 10.08.07 13:48

Klick einfach doppelt auf eine freie Stelle im Formular, und trage dann die Zeile Code in die von Delphi erstellte Prozedur ein.


agent_x - Fr 10.08.07 15:36

danke