TWebModule.OnDestroy in D6 triggern

[Sanchez]

Mir ist vor kurzem aufgefallen, dass in D6 kein OnDestroy-Event triggert, wenn ich meine Apache-DSO's beende. Dazu kommt ins dpr-File dieser Code:

Delphi-Quellcode:

uses ..., windows;

procedure DLLHandler(Reason: Integer);
var
  P: procedure;
begin
  if Reason = DLL_PROCESS_DETACH then // Indicates that the library is detaching from the address space of the calling process as a result of a clean exit or a call to FreeLibrary or (dlclose on Linux).
  begin
    while ExitProc <> nil do
    begin
      @P := ExitProc;
      ExitProc := nil;
      P;
    end;
  end;
end;

begin
  DllProc := DLLHandler;
  ....
end;

grüße, daniel