Delphi-Quellcode:
function IsInternetConnected: Boolean;
begin
Result := InternetGetConnectedState(nil, 0);
end;
Sicherlich mag es wohl schönere und elegantere Lösungen geben...
aber diese hat bei mir einwandfrei funktioniert!
Dein Programm gefällt mir! Sowas hatte ich auch mal vor
Arbeite jetzt aber an was anderem

so ist das halt manchmal...
Hoffe ich konnte helfen!
MfG
DarthDestroyer