如何用MciSendString播放音乐?(10分)

  • 主题发起人 主题发起人 惟一
  • 开始时间 开始时间

惟一

Unregistered / Unconfirmed
GUEST, unregistred user!
我想用MciSendString来播放背景音乐,主要格式:mp3、mid、wav。我该怎么使用??

我这么写,但不行:
MCISendString('OPEN c:/abc.mp3 TYPE SEQUENCER ALIAS NN', '', 0, 0);
MCISendString('PLAY NN FROM 0', '', 0, 0);

请问到底该怎么写?
 
怎么还没人回答,可能分太少,等一会儿给你搞定。
 
打开后要记得关闭:
procedure TForm1.Button1Click(Sender: TObject);
var
rt:integer;
begin

rt:=MCISendString('open c:/windows/media/chimes.wav Alias NN', '', 0, 0);
if rt<>0 then
showmessage('error');
MCISendString('play NN ', '', 0, 0);
end;


procedure TForm1.Button2Click(Sender: TObject);
begin

MCISendString('close NN ', '', 0, 0);
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin

MCISendString('close NN ', '', 0, 0);
end;

 
非常感谢jsxjd,但我有一点不明白,为什么Open的时候不指定type呢?
 
后退
顶部