Воспроизводим системные звуки
Системные звуки воспроизвести очень просто:
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; |
