如题
解决方案 »
- 禁用ESC健
- Delphi中嵌入SQL语句的问题!
- 关于NEW()创建的内存在TREEVIEW中应用的问题?
- DELPHI 如何把'20041231200101'转换成时间型
- 来者有分,帮忙取名!!!
- 一个非常简单的问题,一时之间想不起来了,但很急,希望大家帮助
- 我要用Delphi开发一套计算机自动组卷系统,各位手头有什么资料、建议???
- dbgrid的触发事件问题
- 有誰能夠把Delphi編譯的exe文件進行反編譯然後得到源代碼。
- 如何用DELPHI的API函数编写串口通讯软件(需多线程)?
- 各位,一个关于数据库的问题,请帮忙!(急)
- ****showmodal与modalresult****
代码,将.exe的部分功能作为函数在dll中引伸出来但如果试要工具转化,呵呵,世界上没有几个人能做
你是不是这个意思,在菜单project下有一个view source,打开.dpr文件,把program改为library ,后面跟dll文件名。再定义一个导出函数就可以了。如exports 函数名;
不知道对你有没有帮助
1、exe的工程文件代码;program P_chufangchuku;uses
Forms,
db,
adodb,
strutils,
sysutils,
U_Main in 'U_Main.pas' {Frm_Main},
U_Report in 'U_Report.pas' {Frm_Report},
U_setqueryterm in 'U_setqueryterm.pas' {Frm_setqueryterm};{$R *.res} begin
Application.Initialize;
Application.CreateForm(TFrm_Main, Frm_Main);
Application.CreateForm(TFrm_Report, Frm_Report);
Application.CreateForm(TFrm_setqueryterm, Frm_setqueryterm);
end;
Forms,
db,
adodb,
strutils,
sysutils,
U_Main in 'U_Main.pas' {Frm_Main},
U_Report in 'U_Report.pas' {Frm_Report},
U_setqueryterm in 'U_setqueryterm.pas' {Frm_setqueryterm};{$R *.res}
function chufangchuku(H: Thandle):integer;stdcall;export;
begin
Application.Handle := H;
Application.CreateForm(TFrm_Main, Frm_Main);
Application.CreateForm(TFrm_Report, Frm_Report);
Application.CreateForm(TFrm_setqueryterm, Frm_setqueryterm);
Frm_setqueryterm.Free;
Frm_Report.Free;
Frm_Main.Free;
application.Handle := 0;
end;exports
chufangchuku index 1;begin
end.