mydll.pas

编写一个简单的DLL的程序

unit MyDll;

interface
function AddIt(x1, x2: Integer): Integer; stdcall;
function SubIt(x1, x2: Integer): Integer; stdcall;

implementation
function AddIt(x1, x2: Integer): Integer; stdcall;
begin
  Result := x1 + x2;
end;

function SubIt(x1, x2: Integer): Integer; stdcall;
begin
  Result := x1 - x2;
end;

end.