如何在程序第一次运行时自动注册一个OCX控件

Question

如何在程序第一次运行时自动注册一个OCX控件，以前一般都是在开始-》运行-》输入 regsvr32 + 文件名.ocx,现在想通过程序自动注册

Answer 1

borland d7安裝後, 有個例子就是:
C:\Program Files\Borland\Delphi7\Demos\ActiveX\TRegSvr
你可看看!!

Answer 2

如下代码即可：
var
  coHandle: THandle;
  RegisterFun: TDllRegisterServer;
begin
    coHandle := LoadLibrary( PChar( coFile ) );    if coHandle <> 0 then
    begin
        try
            @RegisterFun := GetProcAddress( coHandle, 'DllRegisterServer' );            if @RegisterFun <> nil then
            begin
                RegisterFun;
            end;
        finally
           FreeLibrary( coHandle );
        end;
    end
    else begin
        Application.MessageBox( PChar( '打开组件文件“' + coFile + '"失败，请查看文件是否存在。' ),'注册', MB_OK + MB_ICONWARNING );
    end;
end;