destructor TFilterGraph.Destroy; var i:integer; begin SetActive(False); DeallocateHWnd(FHandle); if FFilters<>nil then//追加2010.06.11 FFilters.Free; FGraphEvents.Free; //追加2010.06.11 inherited Destroy; end; destructor TDSVideoWindowEx2.Destroy; begin FFullScreenControl.Free;//追加2010.06.11 if DesktopPlayback then NormalPlayback;