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