Wie wär's hiermit:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var lpdwFlags :PDWord;
begin
if IntenetGetConnectedState(lpdwFlags, 0)then begin
checkbox1.Checked := (lpdwFlags^ and INTERNET_CONNECTION_MODEM) <> 0;
checkbox2.Checked := (lpdwFlags^ and INTERNET_CONNECTION_LAN) <> 0;
checkbox3.Checked := (lpdwFlags^ and INTERNET_CONNECTION_PROXY) <> 0;
showmessage('Internet-Verbindung besteht !');
end;
end;
nicht vergessen zuerst uses wininet; aufzunehmen.
[edit=Christian Seehase] Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]