サバゲのレポート書けよ。俺。
if (Key <> '') then if RegDB.OpenKeyReadOnly( '¥AppEvents¥Schemes¥Apps¥.Default¥'+Key+'¥.current' ) then if RegDB.ValueExists( '' ) then PlaySound( PChar(Key), 0, SND_ALIAS or SND_ASYNC );