Delphi-Help

Главная Статьи Аудио Воспроизводим системные звуки

Воспроизводим системные звуки

Оцените материал
(0 голосов)


Воспроизводим системные звуки

Системные звуки воспроизвести очень просто:

Uses MMSystem;
 
procedure PlaySysSound(Sound: string);
begin
  PlaySound(PChar(Sound), 0, SND_ALIAS or SND_ASYNC or SND_NOWAIT);
end;

В качестве параметра, передаётся название системного звука.

Полный список системных звуков можно получить так:

var
  r: TRegistry;
  lst: TStringList;
begin
  lst := TStringList.Create;
  r := TRegistry.Create(STANDARD_RIGHTS_READ);
  r.RootKey := HKEY_CURRENT_USER;
  r.OpenKeyReadOnly('AppEvents\Schemes\Apps\.Default');
  r.GetKeyNames(lst);
  r.Free;
  // Тут мы имее список звуков в lsl
  // Можем сделать, например Memo1.Lines.AddStrings(lst);
  lst.Free;
end;
Прочитано 5804 раз

Авторизация



Счетчики