- library Beispiel;
- Var Aufgerufen:Word;
- function AddNumbers(a, b: Double): Double; cdecl;
- begin
- Result := a + b;
- Inc(Aufgerufen);
- end;
- // Exportieren der Funktion
- exports
- AddNumbers;
- begin
- Aufgerufen:=0;
- end.
Ausgaben / Anzeige in DllModerator: DGL-Team
|