Delphi 1

Вам нужна процедура MessageBeep(BeepType: Word);

Функция MessageBeep проигрывает звук формата wave, соответствующий системному уровню "тревоги" (alert level). Звук для каждого уровня тревоги описан в секции [sounds] файла инициализации WIN.INI.

BeepType -1 (в паскале: Word($FFFF)) производит стандартный звук с помощью системного динамика, MB_ICONASTERISK проигрывает запись SystemAsterisk из секции [sounds] файла WIN.INI, MB_ICONEXCLAMATION проигрывает запись System Exclamation, MB_ICONHAND проигрывает запись SystemHand, MB_ICONQUESTION проигрывает запись SystemQuestion и MB_OK проигрывает SystemDefault.

Dr. Bob (drbob@pi.net) [000690]