Déterminer si l'on est connecté ou pas


Lorsqu'on crée une application qui a un accès à internet (par exemple, un navigateur), il peut être interressant de déterminer si l'on est connecté ou pas. La solution se trouve dans la base de registre, sous la clé
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\RemoteAccess\Remote Connection.
Voici la fonction qui permet de l'exploiter.

Déterminer si l'on est connecté ou pas

uses
  Windows, Registry;

function is_Connect : Boolean;
Const
  DIR_REG_IS_CONNECT = '\System\CurrentControlSet\Services\RemoteAccess';
  REG_Remote_Connection = 'Remote Connection';
var
  Reg : TRegistry;
  Buff : Dword;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKeyReadOnly(DIR_REG_IS_CONNECT);
  Reg.ReadBinaryData(REG_Remote_Connection, buff, 4);
  Result:= (Buff = 1);
  Reg.Free;
end;


3 requête(s) SQL executée(s) en 0.001 Secs - Temps total de génération de la page : 0.007 Secs