Бип из системного динамика - Delphi .:: CodingRUS ::. программирование по-русски на Delphi, C++, PHP, Prolog, GPSS

Услуги

• Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
• Заказать продвижение сайта
• Программа для рисования блок-схем
• Инженерный калькулятор онлайн
• Таблица сложения онлайн

Популярные статьи

OpenGL и Delphi...		65535
Форум на вашем ...		65535
21 ошибка прогр...		65535
HACK F.A.Q		65535
Бип из системно...		65535
Гостевая книга ...		65535
Invision Power ...		65535
Пример работы с...		65535
Содержание сайт...		65535
ТЕХНОЛОГИИ ДОСТ...		65535
Организация зап...		65535
Вызов хранимых ...		65535
Создание отчето...		65535
Имитационное мо...		65535
Программируемая...		65535
Эмулятор микроп...		65535
Подключение Mic...		65535
Создание потоко...		65535
Приложение «Про...		65535
Оператор выбора...		65535

Сейчас на сайте

Гостей: 18
На сайте нет зарегистрированных пользователей

Пользователей: 13,372

новичок: vausoz

Новости

Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование работы обрабатывающего участка цеха в GPSS

Меры близости на векторах в Delphi + Блок схемы

Создание последовательности окон и передвижение окон по экрану на Turbo ...

Бип из системного динамика

Иногда при отсутствии колонок может понадобиться вывести какой-то звук из динамика системного блока компьютера.

Сделать это очень просто с помощью функции Windows.BEEP

Синтаксис этой функции такой:

function Windows.BEEP (dwFreq: DWORD; DWORD dwDuration);

где

dwFreq - частота звукового сигнала в герцах, dwDuration - длительность звукового сигнала, в милисекундах.

Наглядный пример функции всё хорошо разъяснит.

Данный фрагмент программы проиграет из системного динамика музыку "мобильник", которая звучит на главной странице моего сайта:

procedure TForm1.Button1Click(Sender: TObject);

begin

  windows.beep(500, 300);

  windows.Beep(600, 500);

  sleep(820);

  windows.beep(600, 300);

  windows.Beep(500, 500);

  sleep(820);

  windows.Beep(670, 210);

  windows.beep(600, 210);

  windows.Beep(670, 210);

  windows.beep(600, 210);

  windows.Beep(670, 210);

  windows.beep(600, 210);

  windows.Beep(670, 210);

  windows.beep(600, 210);

  windows.Beep(670, 210);

  windows.beep(750, 550);

end;

Функция возвращает true в случае успешного запуска и false в случае провала.

Опубликовал Kest October 29 2008 13:41:18 · 6 Комментариев · 65535 Прочтений ·

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •

Комментарии

ip fbi November 09 2011 17:21:59
:|

keks June 17 2015 17:08:09

Oleg27 October 23 2023 12:06:02
Я давно смотрю с мужем футбольные матчи и очень часто угадываю, кто победит. Муж говорит, мол, по твоим прогнозам хоть ставки делай. А тут ещё недавно наткнулась на бет-хот. Если кто не в курсе, так это рабочее зеркало 1хбет https://1xbetvip.site/zerkalo-winline/ Подумываю попробовать сделать ставку, но ток чтобы муж не знал. Как считаете, стоит попробовать?

Oleg27 December 30 2024 12:10:51
Регистрация в Gama Casino 1xBet зеркало сродни открытию неизведанного игрового рая, куда манят острые ощущения выигрыша. Посетите онлайн казино гама для приятных побед с помощью лучших бонусов, играйте и выигрывайте!

Oleg27 December 30 2024 12:13:09
Выигрыш моей ставки 1xBet вход был удивительным чувством - это было свидетельством силы исследований и подготовки. Всегда приятно видеть, как ваша способность анализировать данные и принимать взвешенные решения окупается и выходит на первое место. Я благодарен за возможность сделать эту ставку и за удовлетворение, которое приходит с выигрышем.

Oleg27 December 30 2024 12:15:24
Порталы, которые предлагают сыграть, пользуются огромной популярностью из-за того, что они предоставляют массу развлечений, а также простой интерфейс, оперативную выдачу средств. Кроме того, организаторы регулярно радуют гемблеров щедрой бонусной системой, которая позволяет сэкономить собственные средства и использовать ресурсы онлайн-площадки. Бездепозитный бонус – это деньги либо вращения. Игровые автоматы бездепозитные находятся на портале в большом выборе. Изучите их.
Их заведение дарит только что зарегистрировавшемуся пользователю в знак уважения и признания того, что он выбрал именно эту площадку. Имеются и такие площадки, которые выдают подарок непосредственно после авторизации. Но есть и такие, которые просят подтверждение аккаунта через телефон. Покупные бонусы в казино также доступны к использованию.
Есть те, кто требуют подтверждения личности и скан документа. Перед вами огромный выбор казино, которые предоставляют выгодные условия игры, бонусную систему, включая бездепозиты. Бонус за регистрацию игровые автоматы выдают сразу же. Он отображается в вашем аккаунте.
Бездепы – это не только для новеньких, но и тех, кто давно играет в казино. К примеру, бонус может быть выдан на какой-нибудь особый праздник – на День рождения. Бездепы дают возможность пользоваться любыми приложениями бесплатно. При этом онлайн-казино берет расходы на себя в случае вашего проигрыша или выигрыша. Игровые автоматы онлайн бонус можно вывести 1xBet сайт тогда, когда хотите, в наиболее комфортное время. Бездепозитные игровые автоматы с выводом денег – это возможность получить средства за то, чем вы любите заниматься и вывести их в любое время.

Добавить комментарий

Рейтинги

Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.

Гость

Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.

Поделиться ссылкой

• Фолловь меня в Твиттере! • Смотрите канал о путешествиях • Как приготовить мидии в тайланде?

Загрузки

Новые загрузки

Случайные загрузки

PCX

Топ загрузок

Приложение Клие...	100813
Delphi 7 Enterp...	98113
Converter AMR<-...	20313
GPSS World Stud...	17094
Borland C++Buil...	14274
Borland Delphi ...	10395
Turbo Pascal fo...	7404
Калькулятор [Ис...	6103
Visual Studio 2...	5247
Microsoft SQL S...	3681