Il suffit de se servir de la fonction de l'API suivante contenue dans l'unité WinInet :
InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved: DWORD): BOOL; stdcall;
Code:
1
2
3
4
5
6
7
8
9
10
| uses
WinInet;
function DetectionConnexion: Boolean;
var
dwFlags: DWord;
begin
dwFlags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwFlags, 0);
end; |
Cette fonction nous renvoie True si on est connecté ou False si on ne l'est pas.
Ceci ne fonctionne pas pour une connection par LAN.
