高分求解！！

Question

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卸下），
退出码部分动都无法被执行(注册表中没有被写入指定键)怎么搞的？我错在哪了？

Answer 1

http://expert.csdn.net/Expert/topic/1870/1870131.xml?temp=.9175684别老是重复发贴呀