Форум: "Потрепаться";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
ВнизКак работать со спикером Найти похожие ветки
← →
Kloksus (2003-05-04 13:16) [0]Подскажите, пожалуйста, как вывести звук на спикер для Windows 9х для Делфи-6. Подойдет компонент(где он лежит и как называется) или пример команд. Если это можно сделать только из ассемблера, то нужен полный код.
← →
Anatoly Podgoretsky (2003-05-04 15:15) [1]И ты конечно уже посмотрел местный FAQ раз сюда обращаешься.
← →
Manulo (2003-05-04 15:34) [2]Копирайт не мой...
procedure BPSnd(Frequency, Duration: Integer);
asm
cmp Win32Platform, VER_PLATFORM_WIN32_NT
jne @@9X
push edx
push eax
call Windows.Beep
ret
@@9X:
push ebx
push edx
mov bx, ax
mov ax, 34DDh
mov dx, 0012h
cmp dx, bx
jnc @@2
div bx
mov bx, ax
in al, 61h
test al, 3
jnz @@1
or al, 3
out 61h, al
mov al, 0B6h
out 43h, al
@@1:
mov al, bl
out 42h, al
mov al, bh
out 42h, al
call Windows.Sleep
in al, 61h
and al, 0FCh
out 61h, al
@@2:
pop ebx
end;
Первое -- частота писка, второе -- время писка. Ещё раз спасибо товарищу, который поделился со мной данным чудом (к сожалению запамятывал кто)
← →
Kloksus (2003-05-04 17:15) [3]Спасибо, сейчас буду пробовать...
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c