Закрепление файла за прогой

[Лубышев]

Как сделать так, чтобы при открытие муз. файла открывалась моя прога и началось воспроизведение
(воспроизведение через MediaPlayer)

[Jeni]

Можно в обработчике формы OnCreate проверить наличие переданных параметров. Например:

if ParamCount > 0 then
  begin
    MediaPlayer1.FileName := ParamStr(1);
    MediaPlayer1.Play;
  end;

[Лубышев]

что-то не получилось, ошибка...

[SunKnight]

Вот пример:

В обработчике нажатия кнопки Зарегистрировать пишем следующий код:
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey('.BMP' , True);
Reg.WriteStringC1, 'BMPfile');
Reg.CloseKey;
Reg.CreateKey('BMP'+'file_cyd');
Reg.OpenKey('BMPfile\Defaultlcon', True);
Reg.WriteString('', Application.ExeName + ',0');
Reg.CloseKey;
Reg.OpenKey('BMPfileVshellXppenXcommand', True);
Reg.WriteStringC1, Application.ExeName + ' "%!"');
Reg.CloseKey;
Reg.Free;
end;

Имя и полный путь к файлу передается нам в качестве параметра. Чтобы
считать эти параметры, мы должны создать обработчик события onshow для
главной формы и там написать следующий код:
procedure TForml.FormShow(Sender: TObject);
Str:String,•
i:Integer;
begin
if (ParamCount > 0) then
begin
Str:=ParamStr(1);
for i:=2 to ParamCount do
begin
Str:=Str+' '+ParamStr(i);
end;
Imagel.Picture.LoadFromFile(Str);
end;
end;

[SunKnight]

Пример взят из книги "Делфи глазами хакера" М.Фленов. Пример для обработки изображений.

[mihali4]

Сообщение от Лубышев

Как сделать так, чтобы при открытиИ муз. файла открывалась моя прога и началось воспроизведение
(воспроизведение через MediaPlayer)

Зачем привязываться к MediaPlayer?
Уважаемый Snowy некогда дал весьма достойный ответ на вопросы такого рода:

Как добавить в свою программу звук? Но не просто добавить, а сделать так, чтобы он играл не из какого-то файла, а был вшит в .exe! И не просто звук, а чтобы это ещё и не сильно увеличивало размер программы!
Вопросы трекерной музыки отложим на потом. Сейчас поговорим об mp3.
Итак, наша задача - засунуть mp3 в нашу программу и заставить его воспроизводиться по команде. Для этого нам, разумеется, понадобится сам файл звука.
Для тех кто не знает, как добавить его в ресурсы своей программы:
Создаем текстовый файл с именем sounds.rc
Прописываем в него наши файлы. Каждый файл в ресурсах - это своя строка. Пример содержимого файла:

SND1 WAVE 1.wav
SND2 WAVE Bum.wav
SND3 WAVE Crazy.wav
Первое слово - имя, которое мы будем указывать в программе.
Второе - тип ресурса = wav файл
Третье - имя файла.

Сохраняем файл.
Компилим его из командной строки: brcc32 sounds.rc
В результате получаем скомпилированный файл - sounds.res.
Второй этап:
В программе подключаем этот файл:
{$R sounds.res}
Теперь для воспроизведения звука нужно просто дать команду:
PlaySound('SND1', 0, SND_RESOURCE or SND_ASYNC);
где первым параметром - имя, назначенное нами файлу в файле ресурсов.
Предчувствую Ваше справедливое возмущение: "Как же так? Нам обещали mp3!"
Третий этап:
Открываем меню Пуск -> Программы -> стандартные -> Развлечения
Запускаем "Звукозапись". У кого нет, можно доустановить через установку/удаление программ или воспользоваться другой программой подобного рода.
Открываем наш wav файл: Меню -> Файл -> открыть.
Теперь превратим его в mp3: Меню -> Файл -> Свойства Нажимаем кнопку "Конвертировать".
Выбираем формат MP3 и нужное нам качество воспроизведения.
Сохраняем: Меню -> Файл -> Сохранить.
Все. Теперь внутри нашего wav файлика реально сидит MP3, который без проблем воспроизводится через PlaySound при наличии в системе установленного MP3 кодека. А данный кодек установлен во всех Windows после 2000-й по умолчанию. В более ранние, как правило, попадает вместе с другими программами или наборами кодеков.

[GAGARIN-NEW]

Сообщение от mihali4

Зачем привязываться к MediaPlayer?
Некогда уважаемый Snowy дал весьма достойный ответ на вопросы такого рода:

Гдеж я был когда он дал такой достойный ответ ?
Наконецто нормальный мини тутор как впихнуть музыку в *.ехе и при этом не использовать медиаплеер .
Респект !

[SunKnight]

Э-э-э-э... mihali4 при всем уважении, но человек просит что бы когда он открывает файл *.МР3 из директории, то для воспроизведения открывалась не та прога которая закреплена за типом файла, а именно его прога.

[Лубышев]

Спасибо SunKnight я обязательно попробую!

[One.Love]

Как сделать так, чтобы при открытие муз. файла открывалась моя прога и началось воспроизведение
(воспроизведение через MediaPlayer)

просто поставь свою прогу поумолчанию как плеер.
Тыкаешь на муз файле правой кнопкой мыши, свойства=>изменить и выбираешь свой плеер