Воспроизведение звуков в С++ Builder 6

[Pir]

Добрый день Уважаемые программисты!
Необходима Ваша помощь.
Требуется: Воспроизвести 7 стандартных музыкальных нот средствами С++ Builder 6 или еще как нибудь. Смотрел функции MesageBeep и PlaySound. Последние позволяют воспроизводить только внешние файлы музыки.
Как можно реализовать воспроизведение музыкальных нот?

Заранее спасибо!

[waleri]

Читайте про Beep()

[raxp]

WaveForm API.

[Pir]

С воспроизведением нот разобрался. Действовал через миди: midiOutOpen(&Out,0,0,0,0);
Msg= (0x90 + (20 * 0x100) + (0x7f * 0x10000));
midiOutShortMsg(Out,Msg);

Получил достаточно хорошее звучание нот. Большое спасибо.

Есть еще 1 вопрос. Воспроизведение нот делаю в цикле в зависимости от введенных значений чисел следующим образом (кусок кода):
__fastcall TForm1::MidiOutOpen(int m_num)
{
if(m_num == 1)
{ midiOutOpen(&Out,0,0,0,0);
Msg= (0x90 + (20 * 0x100) + (0x7f * 0x10000));
midiOutShortMsg(Out,Msg);
stopForSecond();
}


else if(m_num == 2)
{ midiOutOpen(&Out,0,0,0,0);
Msg= (0x90 + (24 * 0x100) + (0x7f * 0x10000));
midiOutShortMsg(Out,Msg);
stopForSecond();
}

и т.д...
Все компилируется на ура, но вот при запуске звучит только один звук(видимо первый). Получается что не отрабатывается цикл? Помогите пожалуйста.

[Pir]

Не у кого нет никаких решений?Помогите плиз

[Stertor]

Так подойдет?

http://yadelphi.ru/forum/32-293-1

[Pir]

Большое спасибо за помощь!Так и буду использовать!

[Pir]

Доброго дня всем!

Кто подскажет? Если писать код для миди

Msg= (0x90 + (20 * 0x100) + (0x7f * 0x10000));
midiOutShortMsg(Out,Msg);

где 20- определенная музыкальная нота, как вместо числа 20 поставить нецелое число? например 20,89 или любое другое.