DLL高手请入，关于在DLL中引出对象的问题？？？？？？

Question

//建议修改如下
function InitZxyAdmin(AHandle:THandle):TZxyAdmin;stdcall;
begin
  application.handle:=AHandle;
  Result:=TZxyAdmin.Create(nil);
//                         ~~~~
end;
procedure KillZxyAdmin(ARef:TZxyAdmin);
begin
  Application.Handle := 0;
//  ~~~~~~~~~~~~~~~~~~~~~~
  if Assigned(ARef) then ARef.free;
//   ~~~~~~~~~
end;

Answer 1

TO：贴主
不好意思今天很忙，
不能帮你看题，
请支持我！
请到这儿看看：
http://www.csdn.net/expert/topic/412/412884.shtm

Answer 2

To　zswang(伴水)(伤心中)　
改了，不行。提示"EInvalidPointer with 'Invalid pointer operation'。
问题是我在调用程序中什么也没做，它也出错!!!仅仅是启动后关闭。不点击按钮，不调用函数!!!!
我正在加入口出口函数，好象不触发!!!!!!!!!!!!

Answer 3

To　zswang(伴水)(伤心中)　
改了，不行。提示"EInvalidPointer with 'Invalid pointer operation'。
问题是我在调用程序中什么也没做，它也出错!!!仅仅是启动后关闭。不点击按钮，不调用函数!!!!
我正在加入口出口函数，好象不触发!!!!!!!!!!!!

Answer 4

************************************************************************8
我把那两个函数内的代码都去掉了，也不行。
function InitZxyAdmin(AHandle:THandle):TZxyAdmin;stdcall;
begin
 // application.handle:=AHandle;
 // Result:=TZxyAdmin.Create(Application);
end;
procedure KillZxyAdmin(ARef:TZxyAdmin);
begin
 // if ARef<>Nil then
   // ARef.free;
end;请问这是怎么回事，是不是我的调用方法有问题？
我是比着Delphi编程指南去写的，还是没有这方面的资料？？？？？？？？？？？