PC Speaker + Windows

Знае ли някой какви API-та ми трябват за да подкарам PC Speaker под Windows?????
Предварително мерси

Beep (1000, 1000);

ami inmase si edno draiverce koeot navremeto mnogo se polzavse!
tarsi na saita na microsoft mojebi!?

aaaa... ama ti iskas sam da go upravliavas?
togava pisi direktno v port 61
ako "windows nekolko hiliadi" ne te pusne, razkarai go i sloji 9x

function OpenSound: Integer;
function SetVoiceQueueSize(Voice, Bytes: Integer): Integer;
Bytes - броя тонове които можеш да запишеш;

function SetVoiceThreshold(Voice, Notes: Integer): Integer;

function SetVoiceNote(Voice, Value, Length, Cdots: Integer): Integer;

voice=1; value - дава височината на тона, стойностите са между 20 и 40; всяко число отговаря на половин тон;
Length- задава продължителността; - 1 - цяла нота; 2 - половинка, 4 - четвъртинка и т.н;
Cdots -последното май няма никакво значение;

След като инициализираш звука с първите три функции, когато изкаш да изсвири мелодия, записваш я по тонове със SetVoiceNote и накрая

StartSound;

Тези функции ги дават остарели още във Windows 3.1 и не са обяснени, но работят и на Windows 98