delphi 系统OCX 注册/注销

function RegisterOCX(FileName: string): Boolean;

var

  OCXHand: THandle;

  RegFunc: TDllRegisterServer;

begin

  OCXHand := LoadLibrary(Pchar(FileName));

  RegFunc := GetProcAddress(OCXHand, 'DllRegisterServer');

  if @RegFunc <> nil then

    Result := RegFunc = S_OK

  else

    Result := False;

  FreeLibrary(OCXHand);

end;

function UnRegisterOCX(FileName: string): Boolean;

var

  OCXHand: THandle;

  RegFunc: TDllRegisterServer;

begin

  OCXHand := LoadLibrary(Pchar(FileName));

  RegFunc := GetProcAddress(OCXHand, 'DllUnregisterServer');

  if @RegFunc <> nil then

    Result := RegFunc = S_OK

  else

    Result := False;

  FreeLibrary(OCXHand);

end;