代码:
library project2;
uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas' {Form1};
function TestDll(i:
):;stdcall;begin
Result:=i;
end;
exports
TestDll;
begin
end.
窗体文件代码:
unit Unit1;
erfaceuses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TForm1 =
(TForm)Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
//本行以下代码为我们真正动手写
代码function TestDll(i:
):;stdcall;external 'Project2.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=TestDll(edit2.text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
end;
end.
最新评论