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;



本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/shuaihj/archive/2011/03/12/6243360.aspx

相关阅读 >>

Delphi 从paintbox拷贝一部分内容到tbitmap

android开发-px和dip以及sp的区别

Delphi 如何判断某一窗口最大化

Delphi android拍照报错

Delphi 调用ie隐藏的命令

Delphi xe android 使用system.zip单元释放资源文件

Delphi filesearch 获取指定文件夹下所有文件包括隐藏文件

Delphi 注入win7的单元

Delphi winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid

Delphi 获取与设置系统环境变量

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...