DefaultHandler beendet nicht

[EWeiss]

Ja sorry

Delphi-Quellcode:

type
  TVisForm = class(TForm)
...
  public
    procedure DefaultHandler(var Message); override;
end

Delphi-Quellcode:

procedure Module1_Quit(This_Mod: PWinAMPVisModule);
begin

  SetWindowLong(ews^.me, GWL_WNDPROC, 0);

  VisForm.Timer1.Enabled := False;
  VisForm.Close;
  VisForm.Free;

Bei Quit rufe ich ordnungsgemäß close, free auf aber der handler läuft weiter
SetWindowLong beendet die Proc welche vorher mit

Delphi-Quellcode:

  if MainWindowProc = nil then
    MainWindowProc := Pointer(SetWindowLong(ews^.me, GWL_WNDPROC,
                              longint(@VisProc)));

initialisiert wurde..

Das ganze läuft in einer DLl

gruss Emil