Расширение файла., Как определить? Опции

[Артемий]

Здрастье. Пишу плеер и столкнулся с проблемой - как узнать, какое расширение имеет муз. файл (.mp3;.mpg;.avi и т.д). Должно получиться вроде того:

Код

if {такое-то расширение} then begin
           {какие-нибудь действия}
         end;

Помогите пожалуйста!

Сообщение отредактировано: Артемий2 - 22.11.2006 19:54

[volvo]

ExtractFileExt чем не устраивает?

[Артемий]

Извини, я наверное описался, я имел ввиду то, что я уже знаю какое расширение файл. Не могу только понять, помоги пожалуйста разобраться.
Вот так:

if {расширение .WAV} then begin
                   {делаем какие-то действия.}
                     end;
                  if {расширение .MP3} then begin
                    {делаем какие-то действия.}
                     end;  

Сообщение отредактировано: Артемий2 - 22.11.2006 20:08

[Артемий]

Прости volvo, лоханулся. Вот че получилось:

begin
 OpenDialog1.Execute;
 if ExtractFileExt(OpenDialog1.FileName) = '.mp3' then begin
 MediaPlayer1.FileName := OpenDialog1.FileName;
 MediaPlayer1.Open;
 Mediaplayer1.Play;
 end;
end;

Вывод: БОЛЬШЕ сна! Спасибо за помощь!