Deteccao de conexao a internet
11/12/2003
0
Gostaria de fazer um programa que ficasse rodando em segundo plano, aguardando alguem se conectar a internet. Qdo alguem fizesse isso, o programa registraria em um arquivo de log a data e a hora da conexao.
Sugestoes?
Sucesso a todos
Tnaires
Posts
11/12/2003
Chicorinthiano
Tenta assim:
function TipoConexao:boolean;
var flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
showmessage(´Conexão a Internet está Ativa´);
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
showmessage(´Conexão por modem´);
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
showmessage(´Conexião por lan´);
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
showmessage(´Conexião por proxy´);
if (flags and INTERNET_CONNECTION_MODEM_BUSY) =INTERNET_CONNECTION_MODEM_BUSY then
showmessage(´modem ocupado´);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TipoConexao;
end;
Talvez não funcione no Delphi 3
Blzinha?
11/12/2003
Tnaires
o Delphi não reconheceu essa função. Qual unit devo incluir? Muito obrigado pela sugestão.
11/12/2003
Tnaires
Rapaz, muito obrigado de novo, e até a próxima!
Sucesso
Clique aqui para fazer login e interagir na Comunidade :)