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

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

В старой версии 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 не будет опубликован. Обязательные поля помечены *