Звуки в дельфи Опции

[TarasBer]

Как реализовать на дельфе проигрыш звука заданной частоты? Я вот через писиспикер попробовал, таким вот модулем (текст взял с какого-то сайта), но он вылетает с ошибкой привеллегед инструктион.

[volvo]

я надеюсь, там можно обойтись трёмя процедурами, или 20 строк подключения и проверок?

Использовал в проекте на чистом API - инициализация в 2 строки + 2 основных процедуры (MidiNoteOff, MidiNoteOn) вида:

function MidiOutMessage(hMidi: HMIDIOUT;  iStatus: integer;  iChannel: integer;
  iData1: integer;  iData2: integer): DWORD;
var
  dwMessage: DWORD;
begin
  dwMessage:= iStatus or iChannel or (iData1 shl 8) or (LongInt(iData2) Shl 16);
  result := midiOutShortMsg(hMidi,dwMessage);
end;


function MidiNoteOff(hMidi: HMIDIOUT;  iChannel: integer;  iOct: integer;
  iNote: integer;  iVel: integer): DWORD;
begin
  result := MidiOutMessage(hMidi,$080,iChannel,12*iOct+iNote,iVel);
end;
function MidiNoteOn(hMidi: HMIDIOUT;  iChannel: integer;  iOct: integer;
  iNote: integer;  iVel: integer): DWORD;
begin
  result := MidiOutMessage(hMidi,$090,iChannel,12*iOct+iNote,iVel);
end;

использование совершенно прозрачно...