По формату файла открыть нужный модуль программы

[Алексей_2012]

я и с реестром то работать не умею, можете показать пару примеров?

[саша40]

ExtractFileExt извлекает у файлового имени(полно пути до него) расширение. Например: .что-то
Проверяй их условиями, расширения посмотри в интернете(.ogg- это аудио).

[Человек_Борща]

Алексей_2012, в Uses добавь Registry. Далее читай про класс TRegistry.

[Алексей_2012]

саша40

[саша40]

Сообщение от Алексей_2012

саша40

Не по теме:
"Да спасибо, я кеп! И это знаю я. Кстати "Остров сокровищ" мой любимый мультфильм".
Если хотите, чтобы ваш плеер был запущен при открытие файла в проводнике или функцией ShellExecute из другого приложения, то надо ассоциировать программу с этим форматов(Registry и посты выше в помощь). Потом с событие onShow(onCreate не использовать, иначе будет ошибка адреса) получаете путь:

var
n: integer;
begin
...//какой-то код
for n:=1 To ParamCount Do 
begin
FileName:=ParamStr(n); //тут путь к файлу
//дальше
end;
end;

Потом извлекаете расширение и условием if then проверяете, желательно использовать and и or.
Вот список аудиоформатов:http://yandex.ru/yandsearch?clid=195...BB%D0%BE%D0%B2
http://open-file.ru/types/audio/
Видеоформаты: http://yandex.ru/yandsearch?text=%D0...=1955454&lr=66
http://open-file.ru/types/video/
Совет: Используй только те, что поддерживает Windows и DirectShow.
P.S. Судя по количеству можешь использовать Case of.

[Пепел Феникса]

(onCreate не использовать, иначе будет ошибка адреса)

она будет только в том случае если обращатся к другой форме которой еще нет.
а вот подготовить глобальные переменные вполне можно.

Совет: Используй только те, что поддерживает Windows и DirectShow.

а может у него свои форматы?
далее, нет такого понятия поддерживаемые виндой и DS, так как этот список зависит от кодеков.

и далее, если список форматов велик, я обычно заполняю TStringList по формату <расширение>:<объект плеера или просто данные к этому формату> (после двоеточия это в Object идет), что позволяет легко получать данные по тексту(расширение в данном случае)

[Алексей_2012]

у меня другая идея, мне просто нужно как-то вытащить из реестра все поддерживаемые данной ОС форматы аудио и видео, записать их в массив или стринглист, затем допустим у меня есть стринглист с набором любых аудио-видео форматов (взятых из реестра), итак, если файл относится к аудио (проверяем из первого стринглиста расширение файла, т.е с помощью функции, которая извлекает расширение), то прослушать его, иначе открыть форму с видео, проиграть видео и далее проверить следующий файл, вернее его расширение, сам список файлов будет храниться во втором стринглисте. Все это есть, кроме записать все поддерживаемые форматы куда не то в файл или в ОЗУ, вот с этим прошу помочь

[Пепел Феникса]

Сообщение от Алексей_2012

у меня другая идея, мне просто нужно как-то вытащить из реестра все поддерживаемые данной ОС форматы аудио и видео, записать их в массив или стринглист, затем допустим у меня есть стринглист с набором любых аудио-видео форматов (взятых из реестра), итак, если файл относится к аудио (проверяем из первого стринглиста расширение файла, т.е с помощью функции, которая извлекает расширение), то прослушать его, иначе открыть форму с видео, проиграть видео и далее проверить следующий файл, вернее его расширение, сам список файлов будет храниться во втором стринглисте. Все это есть, кроме записать все поддерживаемые форматы куда не то в файл или в ОЗУ, вот с этим прошу помочь

вы можете лишь проэнумеровать доступные вам кодеки(если DirectShow применен, то не забывайте что не все кодеки это DS-фильтры)