Проблема с одновременным воспроизведением звука Wav

[NomeL]

Делаю проект: "Макет музыкальной аппаратуры"
Ставил кнопки SpeedButon и подключал к ним звуки через MMSysem.
Все кнопки с звуками вывел на клавиатуру.
Но столкнулся с проблемой одновременного воспроизведения Wav.
Хочется чтобы на ФОНЕ играла отдельная мелодия.
Пробовал подключить MPlayer.
Мелодия играет, а звуки кнопок воспроизводятся только по щелчку мыши но никак не работают с клавиатуры.
Прошу помочь. Заранее спасибо.

[Aliens_wolfs]

Одновременное проигрывание звуков с помощью MMSystem

uses
  MMSystem;

//Процедура воспроизведения
procedure SendMCICommand(Cmd: string);
var
  RetVal: Integer;
  ErrMsg: array[0..254] of char;
begin
  RetVal := mciSendString(PChar(Cmd), nil, 0, 0);
  if RetVal <> 0 then
  begin
    mciGetErrorString(RetVal, ErrMsg, 255);
    MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SendMCICommand('open waveaudio shareable');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SendMCICommand('close waveaudio');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMCICommand('play "wav\1.wav"');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SendMCICommand('play "wav\2.wav"');
end;

Лучше воспользуйся BASS в нем можно и mp3 проигрывать, поищи в поисковике, здесь много инфы найдешь.

[NomeL]

"Одновременное проигрывание звуков с помощью MMSystem"

Будет работать 2 звука, если я зажму на клавиатуре 2 разные кнопки?

[Aliens_wolfs]

Да будут работать сразу 2 и более столько сколько привязано. Для остановки воспроизведения определенного звука можно

SendMCICommand('stop "wav\1.wav"');

делай проверку нажатия клавиши и при отпускании ее останавливай привязанный звук

[NomeL]

Спасибо. Все работает.
Но с этим кодом идет задержка.
У меня короткие звуки (семплы ударных)
Как теперь воспроизводить часто без задержки?
Пробывал прописать procedure TForm1.FormKeyDown но не помогло в моей теперешней проблеме)

Aliens_wolfs, можете дать мне свою ICQ?

[Aliens_wolfs]

Предлогаю перейти на Bass, файлы звуков нужно кэшировать что бы небыло задержки, я помогу. сейчас заготовку напишу а ты под свою переделаешь

[Aliens_wolfs]

в скайпе нади меня Aliens_Wolfs либо агент Aliens_Wolfs@mail.ru

[Пепел Феникса]

файлы звуков нужно кэшировать что бы небыло задержки

я бы не назвал это кэшем, их банально надо загрузить в память.

[Aliens_wolfs]

Ну впринципи да не так сказал). И лучше на Bass делать там задержек не будет

[Пепел Феникса]

немного оффтоп:
Знаете чем меня BASS начал бесить?
Тем что только о нем и говорят, BASS, BASS, BASS.
А я вот лично использую OpenAL(ALUT имеет функции загрузки WAVE-файлов+в примерах есть воспроизведение OGG).