Pegando IP de um site via Delphi

[NoSlake 53]

Adicione:

• 1 Edit
  
• 1 Memo
  
• 1 Button
  

Nas uses: Winsock

 

Declare a primeira função:

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

• Entre
• ou
• Cadastre-se

 

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

• Entre
• ou
• Cadastre-se

 

OnClick do Button:

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

• Entre
• ou
• Cadastre-se

 

Se quiser colocar o Enter como atalho. Adicione no KeyPress do Edit:

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

• Entre
• ou
• Cadastre-se

 

Créditos> Systemx

[Newt Scamander 214]

Up.

Espero que o conteúdo ainda possa ser aproveitado.