我目前只能去呼叫 sndvol32.exe 去改變聲音的大小聲 請問版版 可以像 拉霸 的方式來控制聲音大小嗎 而不是呼叫外部程式 ^^

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/directx9_m/directx/ref/ns/microsoft.directx.direct3d/c/volume/volume.asp    問題..希望不是最後才發生！建議一次問完！

uses  MMSystem;  . . . procedure SetVolume(const volL, volR: Word);  var  hWO: HWAVEOUT;  waveF: TWAVEFORMATEX;  vol: DWORD;  begin  FillChar(waveF, SizeOf(waveF), 0);  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);  vol := volL + volR shl 16;  // 設定音量 waveOutSetVolume(hWO, vol);  waveOutClose(hWO);  end;     問題..希望不是最後才發生！建議一次問完！

flyup 前輩 我過你的方法 不知是我弄錯還是怎樣 聲音好像無法變動呢 聲音有大小聲 ... 可是我在使用的時候 SetVolume(const volL, volR: Word); volL 是只原來聲音 呢 volR 是只調整後聲音 呢 ??????? 我從 100 指定到 1000 都沒聲音出現.. 怎會這樣 .><.

引言: flyup 前輩 我過你的方法 不知是我弄錯還是怎樣 聲音好像無法變動呢 聲音有大小聲 ... 可是我在使用的時候 SetVolume(const volL, volR: Word); volL 是只原來聲音 呢 volR 是只調整後聲音 呢 ??????? 我從 100 指定到 1000 都沒聲音出現.. 怎會這樣 .><.

在TTrackBar1元件上，屬性設定為： TrackBar1.position:=2500;//自行設定程式開始的適當音量大小 TrackBar1.Max:=5000;//設定最大音量值 .. 程式寫為： procedure TForm1.TrackBar1Change(Sender: TObject); begin SetVolume(TrackBar1.position, TrackBar1.position); end; 其他請自行更改... 發表人 - flyup 於 2003/02/25 15:31:55

flyup 大大你好 我使用你的解說是可以用了.. 謝謝 不過有一點可以再請問一下嗎.. 你這方法是只能調整單一聲道嗎 我試過,發現好像都是只能從左聲道出聲音,而右聲道一點聲音也沒有.... 真的是這樣嗎... 沒關係,可以調整聲音就好了... 感謝 flyup 大大....^^

在TTrackBar1元件上，屬性設定為： TrackBar1.position:=2500;//自行設定程式開始的適當音量大小 TrackBar1.Max:=5000;//設定最大音量值    在TTrackBar2元件上，屬性設定為：    在TTrackBar2元件上，屬性設定為： TrackBar2.position:=2500;//自行設定程式開始的適當音量大小 TrackBar2.Max:=5000;//設定最大音量值 .. 程式寫為： procedure TForm1.TrackBar2Change(Sender: TObject); begin SetVolume(TrackBar1.position, TrackBar2.position); end; 這樣就可以調整兩個聲道了阿! 只不過會讓用者感到粉難用! 建議我之前給你的那個,一次調整左右聲道!