DLL
　　代码：
　　library project2;
　　uses
　　SysUtils,
　　Classes,
　　Unit1 in 'Unit1.pas' {Form1};
　　function TestDll(i:string):string;stdcall;
　　begin
　　Result:=i;
　　end;
　　exports
　　TestDll;
　　begin
　　end.
　　窗体文件代码：
　　unit Unit1;
　　interface
　　uses
　　Windows, Messages, SysUtils, Classes, Graphics,
　　Controls, Forms, Dialogs, StdCtrls;
　　type
　　TForm1 = class(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:string):string;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.
　　特别推荐：

　　2009年9月全国计算机等级考试时间及科目预告

　　2009年上半年全国计算机等级考试参考答案请进入计算机考试论坛

　　2009年全国计算机等级考试报名信息汇总

　　2009年NCRE考试有新变化

　　2009年全国计算机等级考试大纲

　　2009年上半年全国计算机二级考试试题及答案

　　2009年上半年全国计算机等级考试试题答案汇总