Листинг 5.1.
Генерация звукового сигнала посредством функции Веер
procedure TForm1.Button1Click(Sender: TObject);
begin
Beep; //Генерация звукового сигнала
MessageDlg(\'Звуковой сигнал был подан\', mtError, [mbOK], 0);
end;
Наряду с Веер для получения звукового сигнала используется API-функция MessageBeep (uType: UINT): Boolean, генерирующая стандартный системный звук, тип которого указывает параметр uType. Параметр функции MessageBeep может задаваться двумя способами: в виде шестнадцатеричного числа или поименованной константы. Например, системный звук по умолчанию задается константой МВ_ОК, а стандартный системный звук задается шестнадцатеричным числом $ FFFFFFFF. Функция возвращает параметр типа Boolean, который в случае успешного выполнения (воспроизведения звука) равен True.