Код
if {такое-то расширение} then begin
{какие-нибудь действия}
end;
{какие-нибудь действия}
end;
Помогите пожалуйста!
![mega_chok.gif](http://forum.pascal.net.ru/style_emoticons/default/mega_chok.gif)
if {расширение .WAV} then begin
{делаем какие-то действия.}
end;
if {расширение .MP3} then begin
{делаем какие-то действия.}
end;
begin
OpenDialog1.Execute;
if ExtractFileExt(OpenDialog1.FileName) = '.mp3' then begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
Mediaplayer1.Play;
end;
end;