Essa Rotina verifica se o computador está conectado a internet usando a API do Windows. Para usar essa funcionalidade, é preciso declarar a uses WinInet.
var
flags : DWORD;
begin
if not InternetGetConnectedState(@flags, 0) then
MessageBox(handle, 'Você não está conectado a internet! ', mb_Ok + mb_IconWarning);
end;
Nenhum comentário:
Postar um comentário