Bits prüfen oder wie bin ich online.

[Luckie]

Folgender Code:

Code:

[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]var[/b]
  dwResult : cardinal;
[b]begin[/b]
  dwResult := 0;
  [b]if[/b] Internetgetconnectedstate(@dwResult,0) [b]then[/b]
    showmessage('ONLINE')
  [b]else[/b]
    ShowMessage('OFFLINE');

  [b]if[/b] (dwResult [b]and[/b] INTERNET_CONNECTION_MODEM) = 0 [b]then[/b]
    ShowMessage('Modem');
[b]end[/b];

Link zu Internetgetconnectedstate.

So ich will jetzt die Flags prüfen und so nähere Infos über die Verbindung bekommen. Mache ich das so richtig oder wie geht es richtig. Und wie bekommt mann dann alles am besten in eine String durch Komma getrennt, wenn es mehrere Werte sind die zu treffen können?