Einzelnen Beitrag anzeigen

Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#6

AW: Event beim Entladen einer DLL?

  Alt 10. Jul 2017, 13:02
Alternativ kann man auch noch die DllMain austauschen:
Delphi-Quellcode:
var
  DLLProcNext: procedure(Reason: Integer);

procedure DLLMain(Reason: Integer);
begin
  case Reason of
    DLL_PROCESS_ATTACH: ;
    DLL_THREAD_ATTACH : ;
    DLL_THREAD_DETACH : ;
    DLL_PROCESS_DETACH: ;
  end;
  if Assigned(DLLProcNext) then DLLProcNext(Reason);
end;

begin
  DLLProcNext := TInterlocked.Exchange(@DLLProc, @DLLMain);
  DLLMain(DLL_PROCESS_ATTACH);
end.
In deinem Falle sollte finalization aber ausreichend sein.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat