Бывает нужно знать точно поддерживает ли телефон данный формат музыки или картинки. В этом случае пригодится эта маленькая библиотечка.
Функции такие:
GetMediaList - Считать список поддерживаемых форматов во временный массив;
integer
GetMediaMax - Возвращает общее количество поддерживаемых форматов (вызывается только после GetMediaList);
string
GetMedia(i: integer) - Получить название i-го формата (принимает значения от 0 до GetMediaMax-1);
MediaClean - Очистить временный массив с названиями форматов.
Простейший пример использования:
Program MediaTest;
Uses medialist;
Var i, j: integer;
Begin
GetMediaList;
ShowForm;
j:=FormAddString('Всего форматов: '+GetMediaMax+chr(10));
for i:=0 to getmediamax-1 do j:=FormAddString(getmedia(i) + chr(10));
Repaint;
Delay(50000);
End.