procedure TForm2.Browsemultimediafiles1Click(Sender: TObject);
begin try
play_snd(1);
ShellExecute(0,'open',PChar(compile_path(get_ini_params('cache','media'))),'','',1);
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'B40000');
end;End;