delphi實現播放背景音樂

如果要做一些比較藝術化的程序時，你會想到插入背景音樂，這時你是否使用了TMediaPlayer控件來播放音樂呢？其實我們大可放棄該方法，直接使用WINDOWS為 我們提供的API函數來播放音樂，方法如下：首先需要在uses部分加入mmsystem，接著寫入下列語句，其中e:\1.mid為播放的文件，NN為自定義名稱標志

procedure TForm1.Button1Click(Sender: TObject);
begin
//播放音樂
MCISendString(OPEN e:\1.MID TYPE SEQUENCER ALIAS NN, , 0, 0);
MCISendString(PLAY NN FROM 0, , 0, 0);
MCISendString(CLOSE ANIMATION, , 0, 0);
end; procedure TForm1.Button2Click(Sender: TObject);
begin
//停止播放
MCISendString(OPEN e:\1.MID TYPE SEQUENCER ALIAS NN, , 0, 0);
MCISendString(STOP NN, , 0, 0);
MCISendString(CLOSE ANIMATION, , 0, 0);
end;