procedure TForm2.oxGraphicButton12Click(Sender: TObject);
var mfile_name:String;
begin try
play_snd(1);
if media_file_list.Count=0 then exit;
SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_NORMAL);
if minfo_list.ItemIndex=-1 then minfo_list.ItemIndex:=0;
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;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'D10000');
end;End;