procedure TForm2.Refreshmedialist1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
update_mmedia_list(compile_path(get_ini_params('cache','media')));
update_ui_media_component;
if minfo_list.Items.Count >0 then minfo_list.ItemIndex :=0;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'B60000');
end;End;