くだすれDelphi(超初心者用)その55

533 ：デフォルトの名無しさん：2013/12/15(日) 21:09:08.87 .net

すまん、Delphi は 〜Delphi5、2005、2007、2009 しか持っていないから
そのプロジェクトは開けない
sound.pas
Unit1.pas
をサラッと観たけど sound.pas はそのまま流用してる？
以前書いた「AudioInfo」はタグ表示くらいにしか使っていないがそこに入っていたのかな？

んで Wave の音量調節も最低限動くソース
（Vista 以前と以降ではちょっと条件が違うから XP ではダメかも知れない、いけるかも知れない）
・行数制限があるから二つに分ける
・半角空白二つを全角一つに置換してるので了承してくれ

　　MediaPlayer: TMediaPlayer;
　　TrackBar: TTrackBar;
　　Button1: TButton;
　　procedure Button1Click(Sender: TObject);
　　procedure TrackBarChange(Sender: TObject);
---------------------------------------------
implementation

{$R *.DFM}

uses MMSystem{waveOutSetVolume に必要};