Играем мелодию на системном динамике

Автор: | 28.05.2013

Текст задания :
Необходимо проиграть мелодию на системном динамике.
Решение :

В старой версии Delphi есть WinApi функция Beep(dwFreq, dwDuration: DWORD),  с параметрами  тон и продолжительность звучания. На Windows XP она играла прямо на системном динамике. В Windows 7 на уровень системного железа нам опуститься не дают и данная функция пищит в звуковую карту.
Создаем новый VCL проект. Бросаем на форму компоненты
TButton;
Получится должно что-то вроде этого :

Снимок

Кнопку «Запуск» запрограммируем следующим образом :

[cc lang="delphi" tab_size="2" line_numbers="false" no_links="false"]

procedure TForm1.Button1Click(Sender: TObject);
begin
Winapi.Windows.Beep(500, 300);
Winapi.Windows.Beep(600, 500);
Sleep(820);// задержка мелодии т.е. спим )
Winapi.Windows.Beep(600, 300);
Winapi.Windows.Beep(500, 500);
Sleep(820);// задержка мелодии т.е. спим )
Winapi.Windows.Beep(670, 210);
Winapi.Windows.Beep(600, 210);
Winapi.Windows.Beep(670, 210);
Winapi.Windows.Beep(600, 210);
Winapi.Windows.Beep(670, 210);
Winapi.Windows.Beep(600, 210);
Winapi.Windows.Beep(670, 210);
Winapi.Windows.Beep(600, 210);
Winapi.Windows.Beep(670, 210);
Winapi.Windows.Beep(750, 550);
end;

[/cc]

Данная процедура пропиликает мелодию из фильма "Бумер".

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

Ваш e-mail не будет опубликован. Обязательные поля помечены *