Fórum Como saber se esta conectado na internet #193014
05/11/2003
0
Ola pessoal, utilizo o Delphi 7 e gostaria de saber como faço para saber se o micro está conectado a internet.
Helderjr
Curtir tópico
+ 0
Responder
Posts
05/11/2003
Henry
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.
Responder
Gostei + 0
05/11/2003
Henry
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;
Responder
Gostei + 0
05/11/2003
Helderjr
Henry, valeu pela dica mas só uma coisinha o componente TCP está em qual palheta?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)