Windows標準の音量調節をしたいのですが。

解決

武田 2009-03-08 03:04:54 No: 33590

WindowsXP Delphi 6 personalです。
目的は、指定した時刻になったらベルを鳴らすプログラムを作成しています。
ところが、普段、音量を最小にしているのでベルが鳴っても聞こえないわけです。
そこで、ベルの鳴る直前の時刻に、音量（タスクバーから開いて調整するやつです）をあらかじめ決めておいた音量に（調節不要）上げてベルを鳴らしたら、もとの音量レベルに戻したいわけです。
そのため、現在の音量を数値で取得しておき保存したいのですが
うまくいきません。

音量を上げるのはかなり高機能だと思いますが、下記を参考に作成しました。
http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00507.html
プレイヤーなどの音量などをいじるのではないため、もっと簡単な方法が有ればそれでもいいです。
ご指導のほどをお願いいたします。

monaa 2009-03-08 03:47:42 No: 33591

Windowsの音量ではありませんが、
こんなのもあります。
Windows.Beep(3000, 1000);

これだと実装が楽ですし音源が無いPCでも鳴ります。
いかがでしょうか？

武田 2009-03-08 09:06:34 No: 33592

ｍｏｎａａさん。早速教えて頂き有り難うございました。
大成功です。
なるべく、
あまり大げさなコードを書かないで手軽にできないかと考えていました。
使わせて頂きます。
有り難うございました。