- - - 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
Název počítače
 04.12.2009  

Úvod

Funkce vypíše název počítače ze systému (identifikace počítače v síti).

Prvky

  • Button1
  • Label1

    Kód

    procedure TForm1.Button1Click(Sender: TObject);
    var
    tmpbuff,cname: string;
    size: cardinal;
    begin
    setlength(tmpbuff,0);
    SetLength(cname, 255);
    size:=255;
    GetcomputerName(Pchar(cname),size);
    Label1.caption:=cname;
    end;