Código Delphi [-] function OnInternet: Boolean; var flags: dword; begin Result := InternetGetConnectedState(@flags, 0); end;
function OnInternet: Boolean; var flags: dword; begin Result := InternetGetConnectedState(@flags, 0); end;