Не работает MessageBeep

← →
kva (2003-03-31 13:07) [0]

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

← →
Андрей Сенченко © (2003-03-31 13:12) [1]

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.

← →
kva (2003-03-31 13:22) [2]

var i: LongBool;
begin
I:=MessageBeep(0);
Так вот I принимает значение True, то есть nonzero
По идее отрабатывает, но я ничего не слышу :(

← →
Mike Kouzmine (2003-03-31 13:32) [3]

Может динамик вырвали?

← →
Андрей Сенченко © (2003-03-31 13:39) [4]

Только что попробовал на 95-х, 98-х и 2000-х. Везде все слышу. Через колонки.

← →
Андрей Сенченко © (2003-03-31 13:43) [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;

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

← →
kva (2003-03-31 14:14) [6]

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

← →
kva (2003-03-31 14:34) [7]

Заработало!
Поставил в 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
перезагрузился и все поехало.

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

Иногда так вернее работает.
Windows.Beep(1000, 1000);

Попробу добавить в Uses - MMSystem, хотя он никаким боком не подходит. А вдруг...

Не работает MessageBeep Найти похожие ветки