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