Проигрывание системных звуков

Delphi , Мультимедиа , Аудио

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   MMSystem;

 PlaySound(PChar('SYSTEMSTART'), 0, SND_ASYNC);


 { 
  Other System sounds: 
  Andere Systemsounds: 

  SYSTEMSTART 
  SYSTEMEXIT 
  SYSTEMHAND 
  SYSTEMASTERISK 
  SYSTEMQUESTION 
  SYSTEMEXCLAMATION 
  SYSTEMWELCOME 
  SYSTEMDEFAULT 
}

Here's the translation of the text into Russian:

Код на языке Delphi, который играет системные звуки с помощью единицы MMSystem. Вот разбивка кода:

uses
   MMSystem;

Эта строка включает в программу единицу MMSystem, которая предоставляет функции для работы с устройствами мультимедиа.

PlaySound(PChar('SYSTEMSTART'), 0, SND_ASYNC);

Эта строка играет звук системного старта. Вот что делают каждый аргумент:

• PChar('SYSTEMSTART'): Это указатель на строку, содержащую имя файла звука для игры. В этом случае - 'SYSTEMSTART', который является встроенным звуком Delphi.
• 0: Это.handle звукового устройства. Он может быть установлен в 0 для умолчания устройства.
• SND_ASYNC: Флаг, указывающий, что воспроизведение должно начаться асинхронно, то есть оно не будет блокировать выполнение программы до тех пор, пока звук не будет окончательно проигран.

Код также включает в себя комментарий с списком других системных звуков, которые можно играть с помощью этой функции:

{ 
  Другие системные звуки: 
  Andere Systemsounds: 

  SYSTEMSTART 
  SYSTEMEXIT 
  SYSTEMHAND 
  SYSTEMASTERISK 
  SYSTEMQUESTION 
  SYSTEMEXCLAMATION 
  SYSTEMWELCOME 
  SYSTEMDEFAULT 
}

Все эти звуки являются встроенными звуками Delphi, которые можно играть с помощью функции PlaySound. Имена этих звуков должны использоваться вместо 'SYSTEMSTART', чтобы проиграть другой звук.

В целом, этот код является простым примером использования единицы MMSystem в Delphi для игры системных звуков.

В статье описывается использование функции PlaySound для проигрывания системных звуков в программировании, включая такие звуки как старт, выход, рука и другие.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Аудио ::