Воспроизведение Музыке

  • Автор темы Автор темы Olya
  • Дата начала Дата начала
Статус
В этой теме нельзя размещать новые ответы.

Olya

Homo habilis
Принятый Кодер
Ofline
Всех приведствую.
Подскажите пожалуйста,как можно осуществить
Воспроизведение музыке.
Не просто как мп3,а наподобие как в антивирусной программе "Аваст"
или кто знает такой вирус как "Даркометр"
Там при старте воспроизводится звут,написан на дельфи.
 
Всех приведствую.
Подскажите пожалуйста,как можно осуществить
Воспроизведение музыке.
Не просто как мп3,а наподобие как в антивирусной программе "Аваст"
или кто знает такой вирус как "Даркометр"
Там при старте воспроизводится звут,написан на дельфи.
Я записывал видео урок
View: https://www.youtube.com/watch?v=0e0q7yRw8gE
 
Это определенный текст,ну или можно сделать чтоб произносилось вводной текст.
А как реализовать,чтоб воспроизводилась мелодия?
К примеру такая как у Вас в видео была,ну или песня к примеру.
Через библиотеку "Bass" ,но это уже более расширены метод,а мне бы более
простой чтоб нажав на кнопку к примеру,воспроизведется определенная мелодия.
 
Вам нужно перевести звук в .res и подключить к программе, при старте воспроизвести звук
 
Код:
{$R MySoundRes.RES}
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound('SOUND', 0, SND_RESOURCE);
end;
 
Мне просто нужно воспроизвести,одну мелодию,при удачном входе.
писать целый плеер глупо,а как воспроизвести одну мелодию,я не знаю.
вот и написала мож кто сталкивался,с подобным.
 
Мне просто нужно воспроизвести,одну мелодию,при удачном входе.
писать целый плеер глупо,а как воспроизвести одну мелодию,я не знаю.
вот и написала мож кто сталкивался,с подобным.
я же написал,как в три строки проиграть звук
 
Последнее редактирование:
Я изначально с помощью MediaPlayer делала,но
режим воспроизведения использовала один SND_PURGE.
Но,как то перевести звук в .res не делала,а просто указала путь к файлу.
Из-за этого неправильно выходило.
Спасибо,что подсказали,что нужно перевести звук в .res.
 
Статус
В этой теме нельзя размещать новые ответы.
Назад
Сверху Снизу