软件的背景音乐怎么实现

Question

软件的背景音乐怎么实现，用什么api函数，playsound()怎么在delphi7中不让用呀？

Answer 1

use mmsystem;
或者用 DELPHI自带的多媒体控件

Answer 2

uses mmsystem;
.....
Playsound(...*.wav);   //可以用的....

Answer 3

可以做一个透明的只有音乐的flash，让软件一开始就去播放，但这需要用到shockwave，可能会稍大

Answer 4

uses mmsystem；
procedure TForm1.Button1Click(Sender: TObject);//播放
begin
  MCISendString('OPEN e:\TESTSND.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:\TESTSND.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);
  MCISendString('STOP NN', '', 0, 0);
  MCISendString('CLOSE ANIMATION', '', 0, 0);
end;
其中e:\TESTSND.MID ，你可以替换成别的文件，但要是.MId文件

Answer 5

sPath := 'C:\WINNT\Media\Windows 登录音.wav';
  if not Playsound(PChar(sPath),HMODULE(nil),SND_FILENAME and SND_LOOP) then
  begin
    ShowMessage('false!');
  end;

Answer 6

把声音文件编译到资源文件（.res）中