DLL建立

//Dll建立

///////////////////DLL部分/////////////////////////////////

library FuckPerfect;//在保存文件的时候要游戏这个文件名子 

uses

  SysUtils,

  Classes;

{$R *.res}

function add(X, Y: Integer): Integer; stdcall;

begin

  Result := X+Y;

end;

exports

  add; //多个函数用 都好隔开 ,

begin

end.

 

//////////////////////////窗体部分/////////////////////////////////////////////

//DLL调用 在Uses下面引用CALL

 function add(X, Y: Integer): Integer; stdcall;external 'FuckPerfect.dll';

//调用cALL

procedure TForm1.Button1Click(Sender: TObject); 

begin

  Edit1.text:=IntToStr(add(5,6));

end;

 

//把Dll和EXE文件放在一起

来自为知笔记(Wiz)