随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//通过 DLL Wizard 建立:
library TestDLL;

uses
  SysUtils,
  Classes,
  Dialogs;

{$R *.res}

//建立过程
procedure Test;
begin
  ShowMessage('TestDLL.Test');
end;

//输出
exports
  Test;

begin
end.


//在其他工程调用,如果不在一个工程组,需要在相同目录下、System32下或指定路径;
//声明可以在实现区或接口区,这里的函数名要一致,甚至大小写。

//调用测试:
procedure Test; external 'TestDLL.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test;
end;
posted on 2007-12-07 00:05  万一  阅读(...)  评论(...编辑  收藏