mydll.pas

来自「DLL的动态调用」· PAS 代码 · 共 19 行

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.