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;
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 记一次.NET内存居高不下排查解决与启示
· 探究高空视频全景AR技术的实现原理
· 理解Rust引用及其生命周期标识(上)
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
· 没有源码,如何修改代码逻辑?
· 全程不用写代码,我用AI程序员写了一个飞机大战
· MongoDB 8.0这个新功能碉堡了,比商业数据库还牛
· 记一次.NET内存居高不下排查解决与启示
· DeepSeek 开源周回顾「GitHub 热点速览」
· 白话解读 Dapr 1.15:你的「微服务管家」又秀新绝活了