Delphi 动态注册卸载OCX

本文整理自网络，侵删。

 
uses ActiveX;

{$R *.dfm}
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;

 

相关阅读 >>

Delphi twebbrowser控件编程

Delphi image 直接加载资源文件

Delphi winapi: windowfrompoint- 获取指定点所在窗口的句柄

Delphi 删除任意文件的任意位置的任意数量的字符

Delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）

Delphi使用tnethttpclient：重定向后如何给出最终的url？

Delphi报警声音 beep、messagebeep 和 windows.beep

Delphi 获取超gb大文件大小

Delphi 生成日志记录单元

Delphi xe10对json的解析应用

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 动态注册卸载OCX