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

[Артемий]

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

Код

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

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

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

[Артемий]

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

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

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