Проигрывание MIDI мелодии через Speaker

[IvaD]

Всем здрасте Помню когда то давно натыкался на часы на рабочем столе, которые проигрывали мелодию будильника через Speaker. Мелодии были в midi. Может быть кто нибудь сталкивался с подобным и есть готовые решения или наработки. Буду очень признателен.
P.S.:А то наигрывать мелодии на beep таким образом не ахти затея:

procedure TForm1.Button1Click(Sender: TObject);
begin
Windows.Beep(2200,170);
Windows.Beep(2000,170);
Windows.Beep(1250,170);
Windows.Beep(0,200);
Windows.Beep(1500,200);
Windows.Beep(0,200);
Windows.Beep(2000,330);
Windows.Beep(0,200);
end;

[Aliens_wolfs]

Раньше для проигрывания музыки в Speaker без использования звуковой карты, использовался драйвер Speaker.drv, Speaker.sys, с помощью него можно было не только музыку проигрывать но и Wav, мне кажется что ту программу которую вы видели использовала наверное этот драйвер.
Возможно сейчас можно использовать библиотеку Speaker.dll и вызывать от туда функции для проигрывания. В общем ищите в этом направлении.
А так для проигрывания можно попробовать использовать ноты для старых мобильных где небыло полифонии, а так в ручную забивались мелодии.
Доп. инфа http://www.sql.ru/forum/actualthread.aspx?tid=726246 там же по поводу нот.

Возможно и еще какие нибудь варианты есть.

Вот кое что нашел http://compfaq.ru/Print.aspx?id=3a3c...a-310d21346905
там насчет bleeper.pas говорят в нём есть процедурка, которая позволяет проигрывать speaker'ом разные мелодии.

[raxp]

...по сути настройка порта 60-го и/или использование того же бип ...TC, курите структуру MIDI, вытягивайте ноты и воспроизводите себе.