delphi中用代码实现注册Ocx和Dll

在windows系统中,可以通过Regsvr32来实现注册ocx或者dl,

编程时,调用Regsvr32来注册,却不能正常执行。尤其是在Win7系统中,需要管理员身份才能运行。

使用下面的代码则能正常注册。

复制代码
//注册
function RegisterDllServer(FileName: string): boolean;
var
  nDllAddr: integer;
  bstr: string;
  ProcAddr: Pointer;
  str: PAnsiChar;
begin
  Result := False;
  if not FileExists(FileName) then
    exit;
    
  nDllAddr:=LoadLibrary(PWideChar(FileName));
  if nDllAddr <> 0 then
  begin
    bstr:='DllRegisterServer'+chr(0);
    
    str := PAnsiChar(AnsiString(bstr));
    ProcAddr := GetProcAddress(nDllAddr,str);
    if ProcAddr<>nil then
    begin
      CallWindowProc(ProcAddr,nDllAddr,0,0,0); 
      Result := True;
    end;
    FreeLibrary(nDllAddr);  
  end;                     
end;
 
 
//反注册
function UnRegisterDllServer(FileName: string): boolean;
var
  nDllAddr: integer;
  bstr: string;
  ProcAddr: Pointer;
  str: PAnsiChar;
begin
  Result := False;
  
  if not FileExists(FileName) then
    exit;
    
  nDllAddr:=LoadLibrary(PWideChar(FileName));
  if nDllAddr <> 0 then
  begin
    bstr:='DllUnregisterServer'+chr(0);
    
    str := PAnsiChar(AnsiString(bstr));
    ProcAddr := GetProcAddress(nDllAddr,str);
    if ProcAddr<>nil then
    begin
      CallWindowProc(ProcAddr,nDllAddr,0,0,0);
      Result := True;
    end;
    FreeLibrary(nDllAddr);  
  end;                     
end;
复制代码

 

posted @   yclizq  阅读(398)  评论(0编辑  收藏  举报
编辑推荐:
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 理解Rust引用及其生命周期标识(上)
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
阅读排行:
· 全程不用写代码,我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了,比商业数据库还牛
· 记一次.NET内存居高不下排查解决与启示
· DeepSeek 开源周回顾「GitHub 热点速览」
· 白话解读 Dapr 1.15:你的「微服务管家」又秀新绝活了
点击右上角即可分享
微信分享提示