1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

uses wininet; 
  
procedure TForm1.Button1Click(Sender: TObject); 
var 
  flags: DWord; 
  meld: string; 
const 
  no = 'Es besteht im Moment keine Internetverbindung.'; 
begin 
  if InternetGetConnectedState(@flags, 0) then begin 
    meld := ''; 
    if (flags and $40) = 0 then 
      meld := no else begin 
      meld := 'Es ist eine Internetverbindung eingerichtet.' + #13; 
      if (flags and INTERNET_CONNECTION_LAN) > 0 then 
        meld := meld + 'Die Internetverbindung erfolgt über ein Netzwerk'; 
      if (flags and INTERNET_CONNECTION_MODEM) > 0 then 
        meld := meld + 'Die Internetverbindung erfolgt über ein Modem'; 
      if (flags and INTERNET_CONNECTION_PROXY) > 0 then 
        meld := meld + ' mittels eines Proxy-Servers.' + #13 
      else meld := meld + '.' + #13; 
      if (flags and $20) > 0 then meld := meld + no; 
      if (flags and INTERNET_CONNECTION_MODEM_BUSY) > 0 then 
        meld := meld + 'Das Modem nutzt z.Zt eine andere Verbindung.'; 
      if (flags and $10) > 0 then 
        meld := meld + 'Ein Remote Access Service (RAS) ist installiert.'; 
    end; 
  end else meld := no; 
  showmessage(meld); 
end;