OCXを登録する

　OCXや、ActiveX DLL (インプロセスサーバー) をプログラムから登録する方法です。対象となる DLL 内にある "DllRegisterServer" を呼び出せばOKです。登録を解除するには "DllUnRegisterServer" を呼び出します。

■ OCXを登録する例 
procedure TForm1.Regsvr(const FileName : string);
const
  REGIST  = 'DllRegisterServer';
type
  TRegProc  = function : HResult; stdcall;
var
  RegProc     :   TRegProc;
  LibHandle   :   THandle;
begin
  LibHandle   :=    LoadLibrary(PChar(FileName));
  if  LibHandle <>  0 then  begin
    try
      @RegProc  :=  GetProcAddress(LibHandle, PChar(REGIST));
      if  (@RegProc = nil)  or  (RegProc  <>  0)  then  begin   
        // Failed
      end else begin
        // Success
      end;
    finally
      FreeLibrary(LibHandle);
    end;
  end;
end;