サバゲのレポート書けよ。俺。
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 );
|