Verificar conexão c internet, mas s pedir p conectar antes..
Olá, gostaria de uma dica de como fazer p saber se a máquina está ou não conectada na internet. Já tentei várias opções, o problema é que todas pedem a conexão, ou seja: quando eu testo a conexão, aparece aquela janela do windows com uma mensagem estilo ´O aplicativo XXXXX requisitou uma conexão com www.xxxxxx.com.br..... deseja conectar agora?´ e isto está acabando com o meu programa quando ele roda em intranets com bloqueio de internet.... Alguma sugestão????
Valeu mesmo...
Valeu mesmo...
Leomuradas
Curtidas 0
Respostas
Adilsond
25/03/2003
uses
WinInet;
function InternetConectada: Boolean;
var
ConnectedState : DWord;
begin
InternetGetConnectedState(@ConnectedState, 0);
if (INTERNET_CONNECTION_LAN and ConnectedState = INTERNET_CONNECTION_LAN) or
(INTERNET_CONNECTION_MODEM and ConnectedState = INTERNET_CONNECTION_MODEM) or
(INTERNET_CONNECTION_PROXY and ConnectedState = INTERNET_CONNECTION_PROXY) then
Result := True
else
Result := False;
end;
WinInet;
function InternetConectada: Boolean;
var
ConnectedState : DWord;
begin
InternetGetConnectedState(@ConnectedState, 0);
if (INTERNET_CONNECTION_LAN and ConnectedState = INTERNET_CONNECTION_LAN) or
(INTERNET_CONNECTION_MODEM and ConnectedState = INTERNET_CONNECTION_MODEM) or
(INTERNET_CONNECTION_PROXY and ConnectedState = INTERNET_CONNECTION_PROXY) then
Result := True
else
Result := False;
end;
GOSTEI 0