Главная страница
    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.46 MB
Время: 0.008 c
1-49904
Diablo III
2002-05-02 20:21
2002.05.16
TWebBrowser


1-49971
Anar
2002-04-30 08:42
2002.05.16
RichEdit


4-50162
writer
2002-03-12 15:47
2002.05.16
Работа с треем.


1-49914
catsex
2002-05-02 15:53
2002.05.16
Выключение WINDOW по дате.


3-49881
_Alex_
2002-04-19 19:15
2002.05.16
Access





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский