Форум: "Система";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
ВнизНе работает 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
перезагрузился и все поехало.
Спасибо, парни, за моральную поддержку, я серьезно
← →
BorisUK (2003-03-31 15:07) [8]Иногда так вернее работает.
Windows.Beep(1000, 1000);
← →
Intell (2003-03-31 15:47) [9]Попробу добавить в Uses - MMSystem, хотя он никаким боком не подходит. А вдруг...
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.05.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c