使用函数问题

Question

不懂得调用这个函数,求个调用例子,万分感谢，^^
function ADOInstalled : Boolean; 
var 
  r : TRegistry; 
  s : string; 
begin 
  r := TRegistry.create; 
  try 
      with r do 
      begin 
        RootKey := HKEY_CLASSES_ROOT; 
        OpenKey( '/ADODB.Connection/CurVer', false ); 
        s := ReadString(''); 
        if s <> '' then Result := True 
        else Result := False; 
        CloseKey; 
      end; 
  finally 
      r.free; 
  end; 
end;

Answer 1

if not ADOInstalled then
  ShowMessage('Error: You must have ADO driver installed on you computer!');

Answer 2

楼主给出的函数代码是有问题的, 注册表路径串中的斜杠用错了。
另外，函数代码还可以简化一些，修改如下:function ADOInstalled: Boolean;
var
  r: TRegistry;
begin
  r := TRegistry.create;
  try
    with r do
    begin
      RootKey := HKEY_CLASSES_ROOT;
      Result := OpenKey('\ADODB.Connection\CurVer', False);
      CloseKey;
    end;
  finally
    r.free;
  end;
end;

Answer 3

这段代码的功能是：检查客户机是否装了ADO驱动另外你的斜杠用错了，应用\

Answer 4

代码意思为检测系统是否安装ADO驱动,用法也普通函数一样if not ADOInstalled then //如果没有安装ADO驱动