|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Воспроизведение звука
Интересует возможность воспроизведения звука, причем с возможностью его отключения и конечно при параллельном воспроизведении.
Как я заприметил начинаем с подключения модуля MMSystem. Далее есть парочка команд. Код:
sndPlaySound('C:\Sound.wav', SND_ASYNC); // Обычное воспроизведение sndPlaySound('C:\Sound.wav', SND_ASYNC + SND_LOOP); // Зацикленное воспроизведение sndPlaySound(nil, SND_ASYNC); // Остановка воспроизведения mciSendString(PChar('Play "C:\Sound.wav"'),nil,0,0); // Воспроизведение mciSendString(PChar('close waveaudio'),nil,0,0); // Остановка, только как-то она у меня некорректно работает |
#3
|
||||
|
||||
вариантов много. к примеру:
Код:
uses MCIPlayer, MCIPlayer.Open('d:\Музыка\Ennio Morricone\Chi Mai.mp3'); MCIPlayer.Play; MCIPlayer.Stop; MCIPlayer.Close; MCIPlayer.Pause; MCIPlayer.Resume; MCIPlayer.TriggerPause; procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=IntToStr(GetLength); Label2.Caption:=IntToStr(GetPosition); Label3.Caption:=IntToStr(Integer(GetMode)); end; http://data.cod.ru/139012 Пишу программы за еду. __________________ |
#5
|
||||
|
||||
http://data.cod.ru/139024
-жми Open Пишу программы за еду. __________________ |
#6
|
|||
|
|||
Цитата:
|
#7
|
||||
|
||||
я тебе по секрету скажу: скопируй exe и mp3 в какую-нибудь папку и замени "я узнал что у меня.mp3" на другой mp3, но с тем же именем, проще говоря подмени mp3. теперь запусти exe из 1 и 2 папки.
Пишу программы за еду. __________________ |