<1>创建dll文件
1.新建一个Dll Wizard工程,保存为MyDll,注意这个地方名称的大小写,会影响生成的动态链接库的名称(动态链接库的名称区分大小写)
2.在这个工程中新建一个form,在form单元中引用uses stdctrls
在form1中创建两个过程:在var下面写
procedure synApp(App:THandle);stdcall;
Procedure showform;stdcall;
3,在implementation下写uses math
4.定义这两个过程
在{$R *.dfm}下面写
procedure synapp(App:Thandle);stdcall;
begin
Application.Handle:=App;
end;
procedure showform;stdcall;
begin
form1:=TForm1.create(Application);
from1.show;
end
5.在dll的Library文件里的{$R*.res}下面写:
exports
Synapp,show;
以上完成了dll封装窗体的创建
<2>调用dll动态数据库
1创建一个delphi工程
1, var下写:
Procedure synapp(App:THandle);stdcall;external ‘my.dll’ ;//----你的DLL文件名 (函数,存储过程名区分大小写)
Procedure showform;stdcall;external‘my.dll’;//----你的DLL文件名
注:把你写好的DLL放在本程序的同一目录下,和上面一样,要uses math;