Internet kapcsolat figyelése

Biztosan működik egy olyan számítógépen, ami közvetlen kábelen csatlakozik az internetre, de a routerek korában ezt másképp kell lekérdezni. Szóval a lenti példa igazából a routert fogja érzékelni, ha az van.

implementation

{$R *.DFM}

function kapcsolat(lpdwFlags: LPDWORD;
dwReserved: DWORD): BOOL; stdcall; external 'wininet.dll' name 'InternetGetConnectedState';

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if kapcsolat(pdword(0),0)=false then
label1.Caption:='Nincs internet kapcsolat'
else
label1.Caption:='Van internet kapcsolat';
end;