DLL 中 Exitproc 为啥不起作用?

zxr56066909 2003-05-30 10:41:40
library Project1;
uses
SysUtils,
Classes,registry;

{$R *.RES}

procedure myexit;
var
myreg:tregistry;
begin
myreg:=tregistry.Create ;
myreg.openkey('log',true);
myreg.WriteInteger('exit',1);
myreg.CloseKey ;
end;

procedure test;
begin
{my code}
end;

exports
test,
myexit;

begin
exitproc:=@myexit;
end.

上面这个DLL程序在初始化部分为exitproc指定了一个退出码过程myexit 想在dll
调用完毕从内存卸出时往注册表写入一个exit键值,我在别的程序中无论用静态方
式还是动态方式装入这个DLL 然后关闭调用程序(动态方式用freelibrary卸下),
退出码部分动都无法被执行(注册表中没有被写入指定键)怎么搞的?我错在哪了?
...全文
27 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧