[Tutorial]Descobrir IP Local e nome do computador

[Psy]

• Descobrir IP Local e nome do Computador via Delphi

Abra o Delphi , Crie um Novo Form e nele coloque os Itens:



4     "Label"                aba         "Standard"

1     "Button"              aba         "Standard"

1     "IdIPWatch"       aba         "IndyMisc"

1    "ProgressBar"    aba        "Win32"

1    "XPManifest"      aba         "Win32"

1    "Timer"                aba        "System"



Mude o "Name" do "IdIPWatch1" para "IP"



Mude o "Name" do "ProgressBar1" para "Load"



Mude o "Caption" do "Label1" para "Nome do Computador"



Mude o "Caption" do "Label2" para "IP Local"



Mude o "Caption" do Label3 e Label4 sem Nada(Em Branco)



Mude o "Caption" do "Button1" Para "Atualizar"



OBS  : Todos Sem Aspas.



E organize tudo mais ou menos assim:



















OBS : O Label 3 e Label 4 Nao devem ter nada no caption eu somente coloquei isso para que possa mostrar onde eles devem ficar.



Agora De um Duplo clique no Form e ja no Evento OnCreat dele



coloque :



Label3.Caption := IP.LocalIP;

Label4.Caption := IP.LocalName;



e De um Duplo clique No Button e coloque :

Button1.Enabled := False;

Load.Position := 0;

Timer1.Enabled := True;

Agora no Timer mude o seguinte:

"Enabled" para "False"

"Interval"  para "150"



e de um Duplo Clique nele e Coloque :

begin

Label3.Caption := 'Atualizando...';

Label4.Caption := 'Atualizando...';

Load.Position := Load.Position +5;

IF Load.Position = 100 Then

begin

  Label3.Caption := IP.LocalIP;

  Label4.Caption := IP.LocalName;

  Button1.Enabled := True;

end;

end;

=========================================