Internet kapcsolat figyelése

Top  Previous  Next

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;