Beep-ер

← →
Sender © (2002-04-29 19:26) [0]

Прямо извиняюсь за такой вопрос. Как из дельфи заставить системный динамик играть с нужной частотой нужный промежуток времени? Что-нибудь типа паскалевского Sound?

← →
Sender © (2002-04-29 19:33) [1]

Хе, сам же отвечаю, даже гупо как-то....

SysUtils.Beep;
Windows.Beep(1000, 1000);

← →
Vovchik © (2002-04-29 19:37) [2]

>Sender © (29.04.02 19:33)
Насколько я знаю, это не работает под 9х.

← →
cok © (2002-04-29 19:50) [3]

Могу привести пример на Паскале :

sound(2000); delay(1000); nosound;

← →
Song © (2002-04-29 19:50) [4]

Только ассеблерная вставка, да и то не очень корректно работающая.

← →
Vovchik © (2002-04-29 20:00) [5]

Под 9х работает ассебмлерный вариант, а под нормалльными системами (NT/2K/XP) - виндовая ф-ция. Какие ещё проблемы?

← →
Dimka Maslov © (2002-04-29 20:16) [6]

http://delphibase.endimus.com/?action=viewfunc&topic=mediasound&index=1

← →
Anatoly Podgoretsky © (2002-04-29 20:31) [7]

Да и в FAQ есть хороший пример

Всем огромное спасибо. В Faq действительно хороший пример, только вот никто не подскажет что-нибудь действительно попроще, и чтобы работало в обеих виндах... Не хочется чтобы потом юзвери ругались на то, что всю жизнь прога в 9x шла, а в XP заглючила, и всё только из-за системного динамика...

> Sender © (29.04.02 23:57)
Я же говорил, что сделал свой компонент на основе TCustomEdit"а, который одинаково не пищал во всех виндах...

← →
Andrey007 (2002-04-30 10:54) [10]

В принципе ещё есть функция MessageBeep(). Например: MessageBeep(MB_OK).
Надеюсь, Вы не "Подмосковные вечера" выдаёте через динамик :-)

Beep-ер Найти похожие ветки