Descobrir IP Local e nome do Computador

[.hard~ 0]

Descobrir IP Local e nome do Computador via Delphi

 

PALAVRAS QUE TIVEREM '' - '' É SÓ RETIRAR NA HORA QUE FOR POR O CÓDIGO !

Abra o Delphi , Crie um Novo f-orm e nele coloque os Itens:

 

4 "L-abel" 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 "L-abel1" para "Nome do Computador"

 

Mude o "Caption" do "L-abel2" para "IP Local"

 

Mude o "Caption" do L-abel3 e L-abel4 sem

Nada(Em Branco)

 

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

 

OBS : Todos Sem Aspas.

 

E organize tudo mais ou menos assim:

 

 

OBS : O L-abel 3 e L-abel 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 f-orm e já no Evento OnCreat dele coloque :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E de um duplo clique no Button e coloque :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Agora no Timer mude o seguinte:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

E de um duplo clique nele e coloque:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Quem quiser que eu posto o programa eu posto, mas não vai ter a source.

 

Créditos: Tutos Delphi.

[HarryCuecaoDoidao 0]

Muito Bom Pena que so mecho com Visual basic :) manda pra Quick List :)

[NoSlake 56]

Era isso que eu procurei :P

Eu estava procurando um programa para ver o Nome do Computador, e é simples assim, sem nem functions :

IP.LocalName;

[HarryCuecaoDoidao 0]

Séra que isso server pra forga uma vps ?

[.hard~ 0]

Séra que isso server pra forga uma vps ?

 

Não.

['Afrodite 10]

Meus parabéns cara excelente tópico o conteúdo está bem organizado e fácil

de entendimento estou começando mexer com pascal, então tou encontrando

certas dificuldade, porém você explicou bem legal vlw xD

[HarryCuecaoDoidao 0]

Nossa que legal :) testei e deu certo