关于dll与应用程序的通信问题? 我在应用程序Oncreate的时候,调用dll显示一个窗体,请问我怎样在窗体上通过点击一个按钮关闭整个程序? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我已经把应用程序的Handle传递给Dll中的窗体了,但是当我在dll中调用Application.Terminate;的时候就会出错!那位高手能指点一下。在线等待 窗体要动态创建,然后在button事件里调用self.Free就Ok 是这样的,我在工程文件里引用dll;program Project2;uses Forms, Unit1 in '..\test2\Unit1.pas' {Form1};{$R *.res}procedure ShowRegForm(AHandle: THandle);stdcall;external 'ProductReg.dll';begin Application.Initialize; ShowRegForm(Application.Handle); Application.CreateForm(TForm1, Form1); Application.Run;end.dll文件:procedure ShowRegForm(AHandle: THandle);export;begin Application.Handle := AHandle; Frm_RegForm := TFrm_RegForm.Create(Application); Frm_RegForm.ShowModal;end;我在dll的Form中调用Application.Terminate;就会出错!那应该怎样写呢? 我再概括地把问题说一遍:我想在主程序创建前调用一个dll里的注册窗体,当在注册窗体内点击退出时,我要把dll和应用程序都关闭,谁能给出关键代码?在线等待! indy通讯的问题(急得很) 什么是OP,什么是SP,请教delphi6高手 使用存储过程组件 管理員考試的問題,很急啊。。謝謝了, 在線等,急 nmhttp在delphi7中是什莫? 面试问题,下载了控件先应该做什么? 16进制,二进制,10进制之间的转换函数?急 怎样把数据库的字段名称放入一个数组? 锁键盘 介绍几本有用的书 如何截取字符串 谁有《Delphi深度历险》或《Delphi高手突破》?
program Project2;uses
Forms,
Unit1 in '..\test2\Unit1.pas' {Form1};{$R *.res}
procedure ShowRegForm(AHandle: THandle);stdcall;external 'ProductReg.dll';begin
Application.Initialize;
ShowRegForm(Application.Handle);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.dll文件:procedure ShowRegForm(AHandle: THandle);export;
begin
Application.Handle := AHandle;
Frm_RegForm := TFrm_RegForm.Create(Application);
Frm_RegForm.ShowModal;
end;
我在dll的Form中调用Application.Terminate;就会出错!
那应该怎样写呢?
我想在主程序创建前调用一个dll里的注册窗体,当在注册窗体内点击退出时,
我要把dll和应用程序都关闭,谁能给出关键代码?在线等待!