[OT]
Delphi-Quellcode:
uses wininet;
// ...
function IsInternetConnected: Boolean;
var dwConnectionTypes: DWORD;
begin
dwConnectionTypes:=INTERNET_CONNECTION_MODEM;
result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
Sollte auch funktionieren, ist übersichtlicher und spart ein wertvolles
if.