Delphi中注册OCX控件

这是我以前的一段代码。

 

 

procedure TForm1.Button1Click(Sender: TObject);
 var
  OCXHand: THandle;
  RegFunc: TDLLRegisterServer;{uses ActiveX or OleCtl}
 begin
  if OpenDialog1.Execute then
  begin
    try
      OCXHand := LoadLibrary(PChar(OpenDialog1.FileName));
      RegFunc := GetProcAddress(OCXHand, 'DllRegisterServer');
      if RegFunc <> 0 then
        ShowMessage('Error!');
    finally
      FreeLibrary(OCXHand);
    end;
  end;
 end;