Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: PlugIn-System
15. Nov 2010, 18:22
sind die DLL's die Du hier testweise lädst initialisiert?
Delphi-Quellcode:
library Test;
var
SaveDllProc: Pointer;
procedure LibExit(Reason: Integer);
begin
if Reason = DLL_PROCESS_DETACH then
begin
.
. // Exit-Code für Bibliothek
.
end;
SaveDllProc(Reason); // Speichern der Eintrittspunkt-Prozedur
end;
begin
.
. // Code für die Initialisierung der Bibliothek
.
SaveDllProc := DllProc; // Speichern der Kette von Exit-Prozeduren
DllProc := @LibExit; // Installieren der LibExit-Exit-Prozedur
end.
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|