procedure TForm1.Button1Click(Sender: TObject); Var WSAData : TWSAData; Nom : String; begin WSAStartup(2, WSAData); SetLength(Nom, 255); GetHostName(PChar(Nom), 255); Label1.Caption:=Nom; WSACleanup; end;