有Dll创建的例子么。高分奉送。
解决方案 »
- 这个语句class procedure SetElevationCaption(const Value: string); static;不加static和加了有什么区别吗?
- 各大师:你们好。请问如何取出两个Memo1和Memo2中不相同的字符(列)存到另一Memo3中?
- 2000下设计的界面在98下变大的问题
- 求救啊!sos!
- //***如何在局域网上实时传播自己计算机的桌面!//
- 哪位高手能解决?
- delphi如何动态生成网络拓扑图,并显示路径度的描述?
- 关于数据还原 的问题 SQl server
- 自爆虚拟摄像头效果软件,转让
- 用delphi5.0+ado控件开发的access 2000数据库应用程序在发布时需要带哪些包?
- 消息中怎样传递参数
- 一个怪问题。
SysUtils,
Classes;{$R *.res}function add(a,b:integer):integer;
begin
result:=a+b;
end;exports
add;begin
end.====================================================
//app code 两个edit 1个button
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
function add(a,b:integer):integer;external 'Project2.dll';{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
caption:=inttostr(add(strtoint(edit1.Text),strtoint(edit2.Text )));
end;end.
2 function CreateForm(): TForm; stdcall;
3 exports CreateForm;
写一个程序调用看看。