Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];

Вниз

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 есть хороший пример


 
Sender   (2002-04-29 23:57) [8]

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


 
Vovchik   (2002-04-30 00:01) [9]

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


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

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.006 c
3-49820
ARO
2002-04-18 08:58
2002.05.16
Компонент для работы с Clipper


6-50081
LazyCat
2002-03-04 10:26
2002.05.16
asynchronous socket error 10061 как избавиться от сообщения?


3-49880
Санёк
2002-04-18 23:11
2002.05.16
Мы по русски не понимаем...


1-49950
ah
2002-05-01 16:01
2002.05.16
Почему так length(chr(9)+chr(8)+chr(0)+... + chr(56)....)= пусто


1-50057
turonix
2002-05-02 15:33
2002.05.16
Как в подпрограмму передать динамический двумерный массив и вичис





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский