como saber se estou conectado na internet

Question

Uma vez postaram aqui um codigo que1) identificava se o usuario estava conectado2) se nao estivesse, chamava o dialup pra ele conectars� que nao achei... quem sabe como � que faz isso?BrigadaoFavor po...

Fabiomx · Answer

1�) Voc� deve acrescentar um componente NMFTP (da paleta FastNet).
2�) Insira o seguinte c�digo no evento OnShow do formul�rio.
If (NMFtp1.GetLocalAddress <> �0,0,0,0�) Then ShowMessage(�Voc� n�o est� conectado!�) Else ShowMessage(�Voc� est� conectado!�);

Executando uma chamada para a Conex�o Dial-Up

Insira um objeto do tipo Button definindo sua propriedade name para Button1.

implementation
uses Registry;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
Var
Conexao, Executa, Conecta : string;
Dialup : Pchar;
reg : TRegIniFile;
begin
reg := TRegIniFile.create(�RemoteAccess\�);
Conexao := reg.ReadString(��,�Default�,��);
reg.free;
Executa:=�rundll32.exe rnaui.dll,RnaDial �; {executavel e biblioteca do windows}
Conecta:=Executa+Conexao; {concatena comando e nome da conex�o}
Dialup:=Pchar(Conecta); {transforma string em caracter para ser aceita pela fun��o}
winexec(Dialup,sw_show);
end; delas (veja em WIN32.HLP).

Datafron · Answer

Use o componente TCP para fazer isso.

procedure TForm1.Button1Click(Sender: TObject);
begin
if TCP1.LocalIp = �0.0.0.0� then
winexec(PChar(�rundll32.exe rnaui.dll,RnaDial �+�NomedaConex�o�),sw_show);
end;