Esta simples função serve para verificar se o seu computador está conectado a Internet. Pode ser usada, por exemplo, num software de atualização para o seus sistemas!
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;