Thema: PlugIn-System

Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#24

AW: PlugIn-System

  Alt 15. Nov 2010, 17: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)
  Mit Zitat antworten Zitat