Como saber se esta conectado na internet
Ola pessoal, utilizo o Delphi 7 e gostaria de saber como faço para saber se o micro está conectado a internet.
Helderjr
Curtidas 0
Respostas
Henry
05/11/2003
Function Tform1.IsConnected : Boolean;
var
reg : TRegistry;
buff : dword;
begin
reg:= tregistry.Create ;
Reg.RootKey:=HKey_local_machine;
if reg.OpenKey(´SystemCurrentControlSetServicesRemoteAccess´,false) then
begin
reg.ReadBinaryData(´Conexão remota´,buff,sizeof(buff));
result := buff = 1;
reg.CloseKey ;
reg.Free ;
end;
end;
Use essa função aqui brother.
var
reg : TRegistry;
buff : dword;
begin
reg:= tregistry.Create ;
Reg.RootKey:=HKey_local_machine;
if reg.OpenKey(´SystemCurrentControlSetServicesRemoteAccess´,false) then
begin
reg.ReadBinaryData(´Conexão remota´,buff,sizeof(buff));
result := buff = 1;
reg.CloseKey ;
reg.Free ;
end;
end;
Use essa função aqui brother.
GOSTEI 0
Henry
05/11/2003
ha sim, tambem da pra usar essa aqui:
Use o componente TCP para fazer isso.
procedure TForm1.Button1Click(Sender: TObject);
begin
if TCP1.LocalIp = ´0.0.0.0´ then
ShowMessage(´Você não está conectado!´);
end;
Use o componente TCP para fazer isso.
procedure TForm1.Button1Click(Sender: TObject);
begin
if TCP1.LocalIp = ´0.0.0.0´ then
ShowMessage(´Você não está conectado!´);
end;
GOSTEI 0
Helderjr
05/11/2003
Henry, valeu pela dica mas só uma coisinha o componente TCP está em qual palheta?
GOSTEI 0