Bonjour

http://delphi.developpez.com/faq/?pa...ctionconnexion
La fonction ci-dessous fonctionne nickel, mais... si jamais (sous vista) une mise en veille de Windows est effectuée ; ensuite cette fonction détecte (à tort) une connexion !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
function DetectionConnexion: Boolean;
var
  dwFlags: DWord;
begin
  dwFlags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwFlags, 0);
end;
Est-il possible de modifier ou réinitialiser cette fonction afin de l'améliorer en ce sens ?

Je sais qu'il existe également la méthode pingeant (par exemple) sur Google, mais s'il est possible d'améliorer la fonction ci-dessus, je préfèrerais.

Merci de vos idées