.dll工程文件:
library mydll;{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }uses
SysUtils,
Classes,
windows,
forms,
data in 'data.pas' {DM: TDataModule},
Func in 'Func.pas';procedure MyDLLHandle(Reason: integer);stdcall;
begin
case Reason of
DLL_Process_Attach: //整个DLL的初始化代码
begin
Application.CreateForm(TDM, DM);
end;
DLL_Process_Detach: //整个DLL的善後程序
begin
dm.Free;
end;
end;
end;begin
DLLProc := @MyDLLHandle;
MyDLLHandle(DLL_Process_Attach);
end.
library mydll;{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }uses
SysUtils,
Classes,
windows,
forms,
data in 'data.pas' {DM: TDataModule},
Func in 'Func.pas';procedure MyDLLHandle(Reason: integer);stdcall;
begin
case Reason of
DLL_Process_Attach: //整个DLL的初始化代码
begin
Application.CreateForm(TDM, DM);
end;
DLL_Process_Detach: //整个DLL的善後程序
begin
dm.Free;
end;
end;
end;begin
DLLProc := @MyDLLHandle;
MyDLLHandle(DLL_Process_Attach);
end.
解决方案 »
- DELPHI+MSSQL数据库编写进销存软件开发之研究
- Treeview DBGrid问题
- 初学delphi!希望大家多多帮忙~~~~~
- TRxCalcEdit,TStringField这两个控件是在什么控件包中的?
- dbf格式的文件怎么导入到sql server中去呀????
- RichEdit问题????
- 请教:我用delphi的execl控件打开了execl程序,当我把execl关闭时,delphi的应用程序怎么知道execl已经关闭,并断开连接并释放内存?
- 请问各位经常提到的spy++是个什么软件呀?在哪里有下载的?
- 请教,如何用delphi编写关闭其他应用程序的程序
- 请教一个多用户的问题:
- 请问这段代码,如何编译成为DOS下的程序?
- Rave Dataview问题(在线等待)
但通讯组件没工作。