Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Гостевая книга ... 65535
Содержание сайт... 65535
Вызов хранимых ... 65535
Эмулятор микроп... 65535
Бип из системно... 59713
Invision Power ... 58172
Организация зап... 58076
Модуль Forms 56811
Приложение «Про... 55887
Создание отчето... 55618
Оператор выбора... 55381
Подключение Mic... 55287
ТЕХНОЛОГИИ ДОСТ... 51735
Программируемая... 48687
Пример работы с... 47568
Имитационное мо... 47359
21 ошибка прогр... 42348
Реклама
Сейчас на сайте
Гостей: 4
На сайте нет зарегистрированных пользователей

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

Создание последовательности окон и передвижение окон по экрану на Turbo ...
Меры близости на векторах в Delphi + Блок схемы
Файл записей с выводом обратного заголовка на Turbo Pascal

Реклама

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

Сделать это очень просто с помощью функции 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 16:41:18 · 2 Комментариев · 59713 Прочтений · Для печати

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


Комментарии
ip fbi November 09 2011 21:21:59
:|
keks June 17 2015 20:08:09
smiley
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

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

Нет данных для оценки.
Гость
Имя

Пароль



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

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере!
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
С. Г. Горнаков - ...
TrayIcon
Scrrlcaptoin
Медиа комбайн
Анимированное поя...
Allsubmitter 4.7 ...
Обучение Borland ...
Delphi7 Для профе...
Модифицированная ...
iComm v.6.1 - выв...
Пример работы с р...
База для Allsubmi...
PHP 5
Самоучитель PHP 5...
Pirc
Определние размер...
index.php + мод ...
WordReport
PHP 5. Полное рук...
Разработка распре...

Топ загрузок
Приложение Клие... 100289
Delphi 7 Enterp... 76592
Converter AMR<-... 20017
Borland C++Buil... 10582
GPSS World Stud... 9037
Borland Delphi ... 7571
Turbo Pascal fo... 6874
Visual Studio 2... 4885
Калькулятор [Ис... 3912
FreeSMS v1.3.1 3482
Случайные статьи
Создание анимации ...
Бесполезные META-теги
Создание контекстн...
Для этого необходи...
Линия границы надписи
В качестве первого...
Полезные META-теги
256 кбит/с, котора...
Turbo Pascal 7.0 –...
Сущность имитацион...
Сложные функционал...
Основные принципы ...
Упражнения для сам...
Процедура проверки...
Модернизация сете...
Четкое разграничен...
Презентации Prezi
10.1. Краткое вве...
Сохранение рабочей...
Область (интервал ...
СПИСКИ В GPSS
IT. Этот параметр ...
Абстрактные типы д...
Как вывести на стр...
Печать русских бук...
Статистика



Друзья сайта
Программы, игры
препарат для похудения цена

Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?