Yanghn Notes

//通過 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;