关于activeX控件注册问题

Question

我做了一个程序，用到了shockwaveflash.ocx控件，但在一些没有注册该控件的系统上会报错。我用wise做了安装程序，应该如何做才能使安装程序能注册该控件呢？或是有什么其它的办法。

Answer 1

wise应该可以设置该文件需要注册，这样安装程序会自动注册这个控件。
（大概是选择shockwaveflash.ocx，点击右键菜单，看看属性中应该有注册的栏目）

Answer 2

var
  ocxHandle:THandle;
  RegFunc:TDLLRegisterServer;
begin
  if opendialog1.execute then
    begin
     try
      ocxHandle:=LoadLibrary(PChar(opendialog1.filename));
      RegFunc:=GetProcAddress(OcxHandle,'DLLRegisterServer');
      if RegFunc<>0 then
        showMessage('Error');
     finally
       FreeLibrary(ocxHandle);
end;...........