Bits prüfen oder wie bin ich online.

[Christian Seehase]

Moin Luckie,

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) = [color=red]INTERNET_CONNECTION_MODEM[/color] [b]then[/b] 
    ShowMessage('Modem'); 

  [color=#000080]// oder[/color]

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

Funktioniert nach genau dem gleichen Prinzip wie das herausfiltern eines Directories bei Verwendung von TSearchRec.Attrib.