Új hozzászólás Aktív témák

• #472 BatemanX tag gone #471

  Új Válasz 2005-01-10 10:10:00 #472

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  BatemanX

  tag

  válasz gone #471 üzenetére

  Felhasználónév:
  
  procedure TForm1.BitBtn1Click(Sender: TObject);
  Var
  UserName : string;
  UserNameLen : Dword;
  Begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen) ;
  If GetUserName(PChar(UserName), UserNameLen) Then
  Label1.Caption := UserName;
  
  end;
  
  A jogokat passzolom.

Új hozzászólás Aktív témák