libray datashow;
uses
windows,messages,....//窗体定义,实现,输出其实例化的过程!
//数据模块实现,初始化,
procedure dllmain(reason:integer);
begin
case reason of
dllattach:
begin
//窗体初始化,实例化,重要
//数据模块初始化
end;
...
end;exports
//list of your procs & func must interact with your calling program.begin
//.....
end.
一言难尽。
uses
windows,messages,....//窗体定义,实现,输出其实例化的过程!
//数据模块实现,初始化,
procedure dllmain(reason:integer);
begin
case reason of
dllattach:
begin
//窗体初始化,实例化,重要
//数据模块初始化
end;
...
end;exports
//list of your procs & func must interact with your calling program.begin
//.....
end.
一言难尽。
解决方案 »
- delphi 线程和VCL的问题?
- 按钮上图片的问题
- 我的一个女网友结婚了,当初追过她并到手了,玩过几个月,然后就踹了,她结婚照给兄弟们看看,http://photo.163.com/photos/chaterlxp/61
- 急问如何模拟鼠标点击动作(鼠标不在窗口内)
- delphi中的quickreport的问题
- 请教各位,如何才能在游戏中实现屏幕取词
- 在websnap中怎样通过程序实现下载另外一台机子的文件(通过映射盘)?
- 數据庫連接的問題
- 怎样监控鼠标点击桌面窗口?
- 关于DBGrid的问题!
- 我同过BDE使用acess, 如何去处用户和密码?
- 如何在程序运行时检查表单,把某个字段中小于某个值的记录的另外一个字段值显示出来
library Kdll;
uses
SysUtils,
Classes,
ViewObj in 'ViewObj.pas' {FrmShow},
DataObj in 'DataObj.pas' {ObjData: TDataModule};{$R *.RES}
procedure ShowData();
begin
ObjData:=TObjData.Create(nil); //ObjData是数据模块变量名称,
FrmShow:=TFrmShow.Create(nil); //FrmShow是窗体变量名称
try
FrmShow.ShowModal;
finally
FrmShow.Free;
ObjData.Free;
end;
end;exports
ShowData;
beginend.
使用起来时出现EOleSysError,说是尚未调用CoInitialize,究竟是怎么一回事呢,说实话,
我在数据库方面还可以,但对Dll却是菜鸟一只,请各位老鸟热心指教。