procedure TForm10.mv_loader1Timer(Sender: TObject);
begin try
mv_loader1.Enabled :=false;
if is_shell_support_file(dwn1.FileName) then begin
   ShellExecute(0,'open',PChar(dwn1.FileName),nil,nil,1);
   try Close; except end;
   exit;
end;
if not support_file then ShellExecute(0,'open',PChar(dwn1.FileName),nil,nil,1)
else begin
   Hide;
   form2.minfo_list.ItemIndex :=form2.media_file_list.IndexOf(Label2.Caption);
   form2.VideoAudioManager1Click(nil);
   form2.repaint;
   form2.oxGraphicButton12Click(nil);
   try Close; except end;
end;
except end;End;