Warum klappt das Label nicht

[sui]

Delphi-Quellcode:

      
function CurrentUserName: String;
var
  u: array[0..127] of Char;
  sz: DWord;
begin
  sz:=SizeOf(u);
  GetUserName(u,sz);
  Result:=u;
  label1.caption :=  CurrentUserName;
end;

Warum zeigt er mir den Namen nicht automatisch an, ohne das ich etwas
klicken muss.

sui

[dizzy]

Wahahaaas du da machst, ist ein Endlosaufruf dieser Funktion :!: Eigentlich dürfte dein Programm nicht mehr reagieren wenn diese Fkt. aufgerufen wird :gruebel:

Und wenn du möchtest, dass es etwas sofort nach Programmstart passiert, mach es im OnCreate von deinem Formular, oder setz den Namen fest im OI zur Designtime. So dürfte das garnicht hinhauen.

gruss,
dizzy

[sui]

Versteh ich jetzt nicht so ganz :?:

[Pseudemys Nelsoni]

deine funktion ist rekursiv, sie ruft sich immer wieder selbst auf:

Zitat:

label1.caption := CurrentUserName;

[Luckie]

Bist du sicher dass deine Funktion Labe11 überhauot kennt? Sie ist ja keine Methode deiner Formklasse. Und Btw fände ich es so besser:

Delphi-Quellcode:

function UserName: String;
var
  Size: DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;

[sui]

Hm, also ich möchte einfach ein Label oder sonst ein Feld haben,
wo gleich von Anfang an der Windows-Benutzername drin steht.
Soll eine Begrüssung werden.
Ist mir schon lange ein Rätsel, wie solche Sachen realisiert werden.
Das irgendeine Information ausgelesen, (wie auch immer) und dann in einem
Feld dargestellt wird. Kann mir das nicht mal einer unterbreiten?
Bin unterinformiert... :stupid:

[Pseudemys Nelsoni]

wie sieht denn die function "GetUsername" aus?

wenn würde ich es so machen:

Code:

label1.caption := u;

[sui]

Hatt ich schon, passiert nix. Vielleiht hab ich auch wieder mal
alles grundlegend falsch.

[Luckie]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function UserName: String;
var 
  Size: DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := UserName;
end;

Ein paar Grundlagentutorials / -bücher wären wohl nicht schlecht. ;)

[sui]

Hach wie doof, doppelt aufs Formular und dann caption :=!!!
Warum hat mich denn keiner an den Doppelklick aufs Formular
gebracht, dann hätt ichs wieder gehabt. :mrgreen:

Hat grad ne andere Lösung mit der Timer-Komponente :mrgreen: :mrgreen:

Danke Luckie, aber ich lass mir meinen Namen lieber alle 1000ms neu generieren. *lol