[D7] Tester si connexion active ?

[Arnaud]

Bonjour à tous

 

Je cherche à vérifier si la connexion est active ou non. Carte réseau désactivée, Internet HS, etc... Je veux juste vérifier si le PC est actuellement connecté au Net.

 

Quel composant utiliser, s'il vous plaît ?

 

Précision :

 

Cette fonction me retourne que je suis connecté, même lorsque la carte réseau est désactivée.

 

 

Function TestConnect: Boolean;

Var

dwFlags: DWord;

 

Begin

dwFlags := INTERNET_CONNECTION_MODEM Or

INTERNET_CONNECTION_LAN Or

INTERNET_CONNECTION_PROXY;

Result := InternetGetConnectedState(@dwFlags, 0);

End;

Modifié le 28 avril 2010 par Arnaud