计算机二级:delphidll实例代码持续影响计算机二级考试

文章作者 100test 发表时间 2009:05:07 18:06:44
来源 100Test.Com百考试题网

　　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年上半年全国计算机等级考试试题答案汇总