Иногда при отсутствии колонок может понадобиться вывести какой-то звук из динамика системного блока компьютера.
Сделать это очень просто с помощью функции 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 в случае провала.
