- - - Menu - - -

 » Datum a Čas
 » Soubory a složky
 » Systém
 » Text
 » Grafika
 » Zvuk
 » Kontroly
 » Ochrany
 » Delphi

 » Odkazy



- - - Info - - -

GimiWeb
Top Wallpapers
Cars Wallpapers
Základy HTML
Delphi kódy
Gimi Fotogalerie
Gimi Software
Kozel zahradník
FotoSpace

Gimi © 2016


  

Zpět
Jméno přihlášeného uživatele
 04.12.2009  

Úvod

Funkce vypíše jméno aktuálně přihlášeného uživatele do systému.

Prvky

  • Button1
  • Label1

    Kód

    function UserName: String;
    var
    User : PChar;
    i : DWord;
    begin
    i := 1024;
    user := StrAlloc(Succ(i));
    if GetUserName(User, i) then Result := StrPas(User) else Result := 'nenalezen';
    end;

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