[Kaktuz]

Интересует возможность воспроизведения звука, причем с возможностью его отключения и конечно при параллельном воспроизведении.
Как я заприметил начинаем с подключения модуля 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); // Остановка, только как-то она у меня некорректно работает

Вообщем не могу разобраться со всей этой кучей да и вообще со звуком. Нужно что бы можно было воспроизводить отдельный звук, отключать именно его в нужный момент, зацикливать, ну и что бы были параллельные звуки.

[PhoeniX]

bass.dll чем не устраивает?

[NumLock]

вариантов много. к примеру:

Код:

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

[Kaktuz]

Сообщение от DJ PhoeniX

bass.dll чем не устраивает?

Это что такое и как ним пользоваться?

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

вариантов много. к примеру:

Что-то оно у меня совсем не хочет работать.

[NumLock]

http://data.cod.ru/139024
-жми Open

[Kaktuz]

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

http://data.cod.ru/139024
-жми Open

Разобрался. Но смысл? Воспроизведение идет только одного трека, а мне нужно несколько одновременно. И что бы отключать можно было нужный.

[NumLock]

я тебе по секрету скажу: скопируй exe и mp3 в какую-нибудь папку и замени "я узнал что у меня.mp3" на другой mp3, но с тем же именем, проще говоря подмени mp3. теперь запусти exe из 1 и 2 папки.