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

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

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

Не работает MessageBeep [D5, Win2k]

kva © (2003-03-31 13:07:00)
Не работает MessageBeep. Пробовал со всеми параметрами и просто Beep, не пищит :((
Windows2000, D5, В системе выдает звуки через звуковую плату, я их слышу, а в своей задаче нет.
Что может быть?

Intell (2003-03-31 15:47:00) [1]
Попробу добавить в Uses - MMSystem, хотя он никаким боком не подходит. А вдруг...

BorisUK (2003-03-31 15:07:00) [2]
Иногда так вернее работает.
Windows.Beep(1000, 1000);

kva (2003-03-31 14:34:00) [3]
Заработало!
Поставил в Win.Ini
[sounds]
SystemAsterisk=chimes.wav,Asterisk
SystemHand=ding.wav,Critical Stop
SystemDefault=,Default Beep
SystemExclamation=ding.wav,Exclamation
SystemQuestion=ding.wav,Question
SystemExit=bye.wav,Windows Exit
SystemStart=,Windows Start
перезагрузился и все поехало.

Спасибо, парни, за моральную поддержку, я серьезно

kva (2003-03-31 14:14:00) [4]
В настройках звука поставил озвучивание всех событий Windows
Я через наушники слышу как при выпадении меню (и др. событиях )
в моей же прогре звякает.
А уменя по клику (событие наступает, в отладчике проверял) стоит
MessageBeep(word(-1));
MessageBeep(MB_ICONASTERISK);
MessageBeep(MB_ICONEXCLAMATION);
MessageBeep(MB_ICONHAND);
MessageBeep(MB_ICONQUESTION);
MessageBeep(MB_OK);
И ни звука.

Андрей Сенченко (2003-03-31 13:43:00) [5]
Вот даже прослушал всю пургу, которая у меня прошита в "звуки виндовс"

procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
b : longBool;

begin
i := 0;
repeat
b := MessageBeep(i);
i := i + 1;
until b = false;
end;

где-то у Тебя что-то в железе не так

Андрей Сенченко (2003-03-31 13:39:00) [6]
Только что попробовал на 95-х, 98-х и 2000-х. Везде все слышу. Через колонки.

Mike Kouzmine (2003-03-31 13:32:00) [7]
Может динамик вырвали?

kva (2003-03-31 13:22:00) [8]
var i: LongBool;
begin
I:=MessageBeep(0);
Так вот I принимает значение True, то есть nonzero
По идее отрабатывает, но я ничего не слышу :(

Андрей Сенченко (2003-03-31 13:12:00) [9]
Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero.
To get extended error information, call GetLastError.

Наверх

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