Проигрывания 3gp, Стандартными средствами Опции

[Klose]

Можно ли сделать так, чтобы MediaPlayer проигрывал 3gp формат, без использования сторонних библиотек(если вообще таковые есть)?

[Bill Gates]

Читать можно и при помощи стандартных компонентов, лишь бы были кодеки.
Но дело в том, что компонент MediaPlayer распознает тип файла по расширению, и 3gp, по его мнению, на самом деле .mpg.
Т.е. чтобы играть файлы, нужно сначала создавать временную копию исходного файла .3gp с расширением .mpg, а потом играть его.
Вот код события OnCanClose для OpenDialog (предположим, мы имя файла получаем из него):

procedure TForm1.OpenDialog1CanClose(Sender: TObject;
  var CanClose: Boolean);
begin
CopyFile(PAnsiChar(OpenDialog1.FileName),'C:\My3gpPlayerTemp.mpg',true);
MediaPlayer1.FileName:='C:\My3gpPlayerTemp.mpg';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

При закрытии формы нужно удалять временный файл процедурой DeleteFile.

зы. Для воспроизведения нужны кодеки , у меня стоит KLite Codec Pack 1.52.