Delphi dicas

Ler ip do micro

Procedure TForm1.Button13Click(Sender: TObject);

var

WSAData: TWSAData;

HostEnt: PHostEnt;

Name, Result:string;

begin

        WSAStartup(2, WSAData);

        SetLength(Name, 255);

        Gethostname(PChar(Name), 255);

        SetLength(Name, StrLen(PChar(Name)));

        HostEnt := gethostbyname(PChar(Name));

        with HostEnt^ do

        Result:=Format('%d.%d.%d.%d',[Byte(h_addr^[0]),

        Byte(h_addr^[1]),Byte(h_addr^[2]),Byte(h_addr^[3])]);

        WSACleanup;



        t.Text := Result



end;

por : Cleyton C. Esteves