Как заставить программу проиграть файл мп3

[Anfall]

Доброго времени суток! В общем, делаю мп3 плеер. Использую компонент TBassPlayer Столкнулся с проблемой. Если пользователь в проводнике выберет файл и нажмет "Открыть с помощью" и выберет мою программу, то как заставить программу, если это файл мп3, его проиграть?
Заранее спасибо.

Читаем правила. Особенно про требования к названию темы.
К тому же на форуме прекрасно работает поиск.
И про плееры, и про запуск файлов (в том числе и своей программой) - темок немерено...

[SeRhy]

procedure TForm1.FormCreate(Sender: TObject);
var filename,t:string;
begin
  t:=Trim(ParamStr(1));
  t:=Copy(t,Length(t-2),3);
  if (t='mp3') or (t='MP3') then filename:=Trim(ParamStr(1)); // fillename - имя mp3 файла
  ........
end;

[Lime]

в примере описанном выше лучше сделать так :
вместо

(t='mp3') or (t='MP3')

лучше сделать

lowercase(t) = 'mp3'

Ещё если серьёзно занимаетесь разработкай плеера поразмыслите над добавлением папки , или нескольких файлов.
Не мешало бы добавить свой пункт в ПКМ меню файлов
чтото в роде "Проиграть всё с помощью-Мойплеер"
"Добавить в плейлист"
и ещё , мне кажется там собка неверно стоит , в lenght( t-2 )

[KORN]

if ansilowercase(extractfileext(ParamStr(1)))='.mp3' then