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

← →
IceBeerg © (2005-02-16 13:53) [0]

Помогите пож. заставить звучать встроенный динамик компа.
Beep не работает, MessageBeep($FFFFFFFF) тоже. :(

← →
Anatoly Podgoretsky © (2005-02-16 13:58) [1]

Значит его нет или он неисправен.

← →
Чапаев © (2005-02-16 13:59) [2]

А динамик-то физически подключен?

← →
КаПиБаРа © (2005-02-16 14:31) [3]

Windows.Beep(478,365);

← →
palva © (2005-02-16 14:31) [4]

Надо убрать драйверы звуковой карты или включить колонки.

← →
Leshiy © (2005-02-16 14:45) [5]

В настройках регулятора громкости проверь - не выключен ли динамик ПК.

← →
Reindeer Moss Eater © (2005-02-16 15:01) [6]

if SoundCardPresent then MessageBeep(MB_ICONASTERISK) else MessageBeep($FFFFFFFF);

← →
IceBeerg © (2005-02-16 15:25) [7]

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]
Сейчас буду пробовать.

← →
IceBeerg © (2005-02-16 15:27) [8]

Не работает

← →
IceBeerg © (2005-02-16 15:28) [9]

КаПиБаРа © (16.02.05 14:31) [3]
Не работает на 4х ПК...

← →
Reindeer Moss Eater © (2005-02-16 15:31) [10]

Открой корпус и посмотри куда спикер подключен.

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

И как ни странно не везде срабатывает
echo <#07>-код символа
на одном ПК bat"ник пищит на на другом нет 8(

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);

Beep и встроенный динамик Найти похожие ветки