Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Beep и встроенный динамик

IceBeerg © (2005-02-16 13:53:00)
Помогите пож. заставить звучать встроенный динамик компа.
Beep не работает, MessageBeep($FFFFFFFF) тоже. :(

IceBeerg (2005-02-16 18:29:00) [1]
_silver © (16.02.05 16:41) [13]
Большое спасибо, код работает!

_silver (2005-02-16 16:41:00) [2]
var
Win32Ver : TOSVersionInfo;
Win32Platform : Integer;

procedure Sound(Frequency, Duration: Integer);
asm
push edx
push eax
mov eax, Win32Platform
cmp eax, VER_PLATFORM_WIN32_NT
jne @@9X
call Windows.Beep
ret
@@9X:
pop eax
pop edx
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
jmp @@3
@@2:
pop edx
@@3:
pop ebx
end;
.....
Win32Ver.dwOSVersionInfoSize := SizeOf(Win32Ver);
GetVersionEx(Win32Ver);
Win32Platform := Win32Ver.dwPlatformId;
Sound(1000,1000);

IceBeerg (2005-02-16 16:16:00) [3]
И как ни странно не везде срабатывает
echo <#07>-код символа
на одном ПК bat'ник пищит на на другом нет 8(

IceBeerg (2005-02-16 16:12:00) [4]
Reindeer Moss Eater © (16.02.05 15:31) [10]
А куда его еще можно подключить кроме как к материнке?
При переключении раскладки клавиатуры в FAR'e он ведь пищит. Но как самому его сделать...

Reindeer Moss Eater (2005-02-16 15:31:00) [5]
Открой корпус и посмотри куда спикер подключен.

IceBeerg (2005-02-16 15:28:00) [6]
КаПиБаРа © (16.02.05 14:31) [3]
Не работает на 4х ПК...

IceBeerg (2005-02-16 15:27:00) [7]
Не работает

IceBeerg (2005-02-16 15:25:00) [8]
Anatoly Podgoretsky © (16.02.05 13:58) [1]
Чапаев © (16.02.05 13:59) [2]
Есть однозначно и подключен, и исправен, звук то при загрузке ПК есть... бивис им пищит.
palva © (16.02.05 14:31) [4]
Колонков на том ПК нет, это рабочий ПК. Драйвер убирать тоже нельзя потому, что иногда все-таки на нем смотрят видео инсрукции со звуком...
Leshiy © (16.02.05 14:45) [5]
Нет, не отключен...
Reindeer Moss Eater © (16.02.05 15:01) [6]
Мне то нужно вывести звук через системный динамик даже если SoundCardPresent=True, но MessageBeep($FFFFFFFF) ну никак не работает...

КаПиБаРа © (16.02.05 14:31) [3]
Сейчас буду пробовать.

Reindeer Moss Eater (2005-02-16 15:01:00) [9]
if SoundCardPresent then MessageBeep(MB_ICONASTERISK) else MessageBeep($FFFFFFFF);

Leshiy (2005-02-16 14:45:00) [10]
В настройках регулятора громкости проверь - не выключен ли динамик ПК.

КаПиБаРа (2005-02-16 14:31:00) [11]
Windows.Beep(478,365);

palva (2005-02-16 14:31:00) [12]
Надо убрать драйверы звуковой карты или включить колонки.

Чапаев (2005-02-16 13:59:00) [13]
А динамик-то физически подключен?

Anatoly Podgoretsky (2005-02-16 13:58:00) [14]
Значит его нет или он неисправен.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »