VPF::Системные звуки Windows - Форум программистов

AndreyANM

Дата 4.1.2006, 19:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 4.1.2006

Репутация: нет
Всего: нет

Как моей программе вызвать системные звуки, такие как
восклицание (плим), фатальная ошибка (бдам) и другие подобные.
(функцию playsound не бепокоить)

Спасибо что читаете этот бред.

Poseidon

Дата 4.1.2006, 19:52 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: нет
Всего: 133

Ну если playsound не бепокоить, то используй TMediaPlayer

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Snowy

Дата 10.1.2006, 14:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Цитата(AndreyANM @ 4.1.2006, 19:21

)

Как моей программе вызвать системные звуки, такие как восклицание (плим), фатальная ошибка (бдам) и другие подобные.

Через PlaySound.

Цитата(AndreyANM @ 4.1.2006, 19:21

)

(функцию playsound не бепокоить)

А есть другие варианты?
В третьем параметре укажи флаг SND_ALIAS.
С ним доступны все стандартные звуки, перечисленные в
HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default

VAVII

Дата 11.1.2006, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 7.1.2006

Репутация: нет
Всего: нет

Если совсем извратится то можно напрямую подавать звук на устройство WaveOut!

Есть еще вариант:

Код


uses
  MMSystem; 

procedure SendMCICommand(Cmd: string); 
var 
  RetVal: Integer; 
  ErrMsg: array[0..254] of char; 
begin 
  RetVal := mciSendString(PChar(Cmd), nil, 0, 0); 
  if RetVal <> 0 then 
  begin 
    {get message for returned value} 
    mciGetErrorString(RetVal, ErrMsg, 255); 
    MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0); 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SendMCICommand('open waveaudio shareable'); 
  SendMCICommand('play "C:\xyz\BackgroundMusic.wav"'); 
  SendMCICommand('play "C:\xyz\AnotherMusic.wav"'); 
  SendMCICommand('close waveaudio'); 
end;

Snowy

Дата 11.1.2006, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Цитата(VAVII @ 11.1.2006, 10:24

)

play "C:\xyz\BackgroundMusic.wav"

В принципе верно, только брать не свои звуки, а системные.
Путь к ним можно найти в реестре в

Цитата(Snowy @ 10.1.2006, 14:05

)

HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default

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

AndreyANM

Дата 18.1.2006, 00:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 4.1.2006

Репутация: нет
Всего: нет

Я раньше уже пробоваль вызывать системные звуки, для этого существует
специальная процедура, в которой следует указать только номер звука (тип Byte).

Но к сожалению я забыл как она называется. Может кто - нибудь знает?

Snowy

Дата 18.1.2006, 10:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

MessageBeep
Но она воспроизводит только пять звуков:

Цитата

MB_ICONASTERISK SystemAsterisk
MB_ICONEXCLAMATION SystemExclamation
MB_ICONHAND SystemHand
MB_ICONQUESTION SystemQuestion
MB_OK SystemDefault

AndreyANM

Дата 18.1.2006, 15:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 4.1.2006

Репутация: нет
Всего: нет

Наконец то!!!
Это то что мне и было нужно. Спасибо.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »