Delphi dicas

Pegar o ip da maquina

// Na paleta Indy Misc adicione o componente  IP

// 1 edit

// 1 Button



unit pegar;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdIPWatch;



type

        TForm1 = class(TForm)

        IdIPWatch1: TIdIPWatch;

        Edit1: TEdit;

        Button1: TButton;

        procedure Button1Click(Sender: TObject);

        procedure FormCreate(Sender: TObject);

        private

        { Private declarations }

        public

        { Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

        edit1.Text := idipwatch1.LocalIP;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin



end;



end.