Звук на спикер

← →
ShyricK © (2007-09-04 20:33) [0]

День добрый! Подскажите пжалуста как заставить спикер системника подавать сигналы разной частоты?

← →
Loginov Dmitry © (2007-09-04 21:09) [1]

Windows.Beep()

← →
Dib@zol © (2007-09-04 21:26) [2]

procedure ExBeep(Freq {Hz}, Duration {ms} : Word);
var
OSV : OSVERSIONINFO;
begin
OSV.dwOSVersionInfoSize := SIZEOF(OSVERSIONINFO);
GetVersionEx(OSV);
if OSV.dwPlatformId = 2 then Windows.Beep(Freq, Duration)
else begin
asm
movzx ecx,Freq
mov eax,1193180
sub edx,edx
div ecx
mov ecx,eax
mov al,182
out 43h,al
mov al,cl
out 42h,al
mov al,ch
out 42h,al
in al,61h
or al,3
out 61h,al
end;
sleep(Duration);
asm
in al,61h
and al,0fch
out 61h,al
end;
end;
end;

← →
Инс © (2007-09-04 21:31) [3]

> [2] Dib@zol © (04.09.07 21:26)

Это на XP ну никак не заработает :(( Правильный ответ - [1]

А, тут еще и проверка на номер версии. Не заметил, сорри.

Все равно лишнее. Функция beep из kernel32 есть на всех версиях Windows.

Звук на спикер Найти похожие ветки