Detecting if ADO is installed.

Detecting if ADO is installed.

Function IsADOInstalled: Boolean;
begin
  with TRegistry.create do
  begin
    with TRegistry.create do
    try
      RootKey:=HKEY_CLASSES_ROOT;
      Result:=OpenKey('ADODB.Recordset,false);
    finally
      Free;
    end;
  end;
end;

if not directoryExists('c:\Program Files\Common File\system\ADO');