DELPHI操縱音效卡

檢查音效卡是否安裝

uses mmsystem;
...
function Soundkarte:Boolean;
begin
Result := WaveOutGetNumDevs >0;
end;

檢測音效卡存在

如果你是做一些多媒體播放器之類的程式時，為了完善系統的容錯性，就必須用到一些檢測系統的功能，其中檢測音效卡是否存在就是一個問題，下列程式幫你忙，首先需要在uses部分加入mmsystem ，接著在表單建立時檢測音效卡：

procedure TForm1.FormCreate(Sender: TObject);

var i:Integer;

begin

i := auxGetNumDevs();

if i<= then

label1.Caption :='系統沒有發現音效卡';

end;

控制聲音音量

當你做一個多媒體播放器時，難免少不了控制音量的大小和左右聲道的播放，下面就介紹一種控制Wave波形輸出裝置音量的方法，該方法不是設定主音量。先在表單上放兩個TTrackBar，分別命名為TrackBar1，TrackBar2，屬性Max都設定為65535，如果覺得刻度太密了，可以把Frequency屬性值設定大一些，然後在Uses段加入MMSystem，並在TrackBar1和TrackBar2的OnChange事件都寫上下列語句：

procedure TForm1.TrackBar1Change(Sender: TObject);
var Wave:string;
begin
Wave:='$'+inttohex(TrackBar1.Position
4)+inttohex(TrackBar2.Position
4);
waveoutsetvolume(0
strtoint(Wave));
end;