Delphi中Ocx的动态注册方法

 方法1


uses windows;

type
   TDllRegisterServer = function: HResult; stdcall;
 
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;

方法2

procedure TForm1.Button1Click(Sender: TObject);
var
   astr:String;
   bstr:String;
   ProcAddr:Pointer;
   DllAddr:Integer;
begin
   od1.Execute;
   astr:=od1.FileName+chr(0);
   DllAddr:=LoadLibrary(PChar(astr));
   if DllAddr<>0 then
     begin
       bstr:='DllregisterServer'+chr(0);
       //只要将以上处改为DllUnRegisterServer即不注册ActiveX控件
       ProcAddr:=GetProcAddress(DllAddr,PChar(bstr));
       if ProcAddr<>nil then
         CallWindowProc(ProcAddr,DllAddr,0,0,0)
       else
           ShowMessage(od1.FileName+'不是有效的控件');
       FreeLibrary(DllAddr);
     end
   else
       ShowMessage(od1.FileName+'无法装载');
end;



uses OLEctl {, ....};
interface{...}
var  OCXHandle: THandle;
RegFunc: TDllRegisterServer;
begin
 
OCXHandle:= LoadLibrary('c:/XXX.ocx');
 
RegFunc := GetProcAddress(OCXHandle, 'DllRegisterServer');
 
if RegFunc <> 0 then ShowMessage('Error!');
 
FreeLibrary(OCXHand);
 
end;
 
或者
 
WinExec("regsvr32.exe/s yourocx.ocx",SW_NORMAL);

 



上一篇: 简易对象垃圾回收框架 for Delphi
下一篇: Delphi获取网卡MAC地址的两种方法
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Delphi Ocx 动态注册 .
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭