dynamische Bibliothek: init+close

[blablab]

Hallo!

Hier kann ich eine dynamische Bibliothek initialisieren:

Delphi-Quellcode:

library XYZ;
exports
  ...
begin
  InitLibrary;
end.

Wenn es also 100 Kopien der Bibliothek gibt, dann wird InitLibrary 100 mal aufgerufen.

Mein Problem ist allerdings, dass ich meine Ressourcen auch wieder freigeben möchte. Ich brauche also eine Funktion oder was auch immer, das beim "Destroy" der Bibliothek auch wieder für jede Kopie aufgerufen wird.
Gibts es da eine Möglichkeit? Ich finde einfach keine Lösung...

Grüße
blablab

[mkinzler]

Schreibe den Code unter initialization bzw. finalization

[blablab]

Wo genau muss ich das hinschreiben?

Weil wenn ich es vor "begin" schreibe kommt immer "Begin erwartet aber Initialization gefunden". Und nach "Begin" kommt direkt "end."

Kann das sein dass das bei einer Bibliothek nicht geht?

Egal, ich hab jetzt in der Delphi-Hilfe einen passenden Code gefunden, allerdings waren da fehler drin...

[mkinzler]

In der Unit, die implementiert

[blablab]

Ich meinte eigentlich wo in der Unit die implementiert muss ich initialization und finalization hinschreiben?
Die ist ja so aufgebaut:

Delphi-Quellcode:

library XYZ;
exports
  ...
begin
  InitLibrary;
end.

und egal wo ichs probiere kommt ein Fehler (siehe letzten Post).

[mkinzler]

Delphi-Quellcode:

library XYZ;

uses ImpUnit;

exports
  ...
begin
end.

ImpUnit.pas

Delphi-Quellcode:

Unit ImpUnit;
...

<Zu exportierende Funktionen>

initilization
<Init Code>

finalization
<Bereinigungscode>