Verificar se o computador está conectado a internet
function TfrmMenu.estaConectado: boolean;
var
flags : DWORD;
begin
// verifica se está conectado a internet usando a API do Windows, é preciso declarar a uses WinInet.
if not InternetGetConnectedState(@flags, 0) then
result := false
else
result := true;
end;
Take care
Um comentário:
Marcos, so uma dica "Lógica":
uses WinInet;
function estaConectado: boolean;
var
flags : DWORD;
begin
Result := InternetGetConnectedState(@flags, 0);
end;
;)
Postar um comentário