DLL 中 Exitproc 为啥不起作用?
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卸下),
退出码部分动都无法被执行(注册表中没有被写入指定键)怎么搞的?我错在哪了?