1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

library dllUebung;

uses
  SysUtils,
  Classes;

{$R *.res}

function addiere(zahl1, zahl2: integer): integer; stdcall;
begin
  result := zahl1 + zahl2;
end;
exports
  addiere;

begin
end.					

1:
2:
3:
4:
5:
6:

function addiere(zahl1, zahl2: integer): integer; stdcall; external 'Pfad\zu\dllUebung.dll';

procedure Probieren;
begin
  ShowMessage(IntToStr(addiere(1, 1)));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

unit dllUebung;

interface

  function addiere(zahl1, zahl2: integer): integer; external 'dllUebung.dll';

implementation

end.