怎样判断OCX控件是否注册！(up有分)

Question

用一个try...except...end块，在其中尝试创建该控件的一个实例，在except..end之间检查创建是否成功，如果创建不成功表明控件未安装。

Answer 1

我想是读注册表，找CLSID那部分里有没有注册过这个文件，找键值，就行了吧。
我也没做过，只是这么想，你试试吧。

Answer 2

把try...except...end的代码放在FormCreate可以吗？

Answer 3

procedure ExcelDemo;
var
  Excel: Variant;
begin
  Excel := UnAssigned;
  try
    Excel := CreateOleObject('Excel.Application');
    //Other operations here
  except
    ShowMessage('Excel is not correctly installed yet');
  end;
end;