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压缩图片代码

Delphi获得文件的版本号

Delphi 缓冲文件流-tbufferedfilestream tfilestream 性能测试

Delphi 数据库char varchar nvarchar区别

Delphi 切换开关 toggleswitch1

Delphi xe10 android安卓 移动端 messagedlg 用法

Delphi 判断一目录是否共享

Delphi fastreport快速入门

Delphi 一组数据，按由大到小进行排序，并输出最大值与最小值

Delphi获取星期函数

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

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