procedure TForm2.minfo_listClick(Sender: TObject);
var mfile_name:String;
begin try
if Enableautomaticplayback1.Checked then begin
   if media_file_list.Count=0 then exit;
   mfile_name:=compile_path(get_ini_params('cache','media'))+'\'+media_file_list.Strings[minfo_list.ItemIndex];
   if FilterGraph1.Active then FilterGraph1.Active :=false;
   FilterGraph1.Active :=true;
   FilterGraph1.RenderFile(mfile_name);
   DSVideoWindowEx1.Refresh;
   FilterGraph1.Play;
   FilterGraph1.Volume:=XiTrackBar2.Position;
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'D30000');
end;End;