按键播放MP3文件

Question

用DELPHI 中的按键 播放MP3，WAV等声音文件 （声明  要可以播放MP3文件）
      不要用到 Media Player 组件或者不要再窗体上看见 Media Player 组件

Answer 1

uses MMSystem;procedure TForm1.Button1Click(Sender: TObject);
var FileName:string;
begin
 FileName:='c:\1.mp3';
 mciSendString(PChar('OPEN '+FileName+' ALIAS NN'),'', 0, 0);
 mciSendString('PLAY NN FROM 0','', 0, 0);
 mciSendString('CLOSE ANIMATION','',0,0);
end;

Answer 2

你好 再问下 除了BUTTON 组件外 还需要其他组件不？

Answer 3

不需要其它了，Button只是用来做触发事件用的。

Answer 4

什么叫连接声音文件？连续播放啊？
用TStringList对象保存文件名，用循环一个个地播放。

Answer 5

汗，mciSendString(PChar('OPEN '+FileName+' ALIAS NN'),'', 0, 0);
用到open打开文件就是连接上了。

Answer 6

是啊 意思就是还要上个POPUPMEMU控件 用来触发单击事件 打开文件啊？？？

Answer 7

我们 QQ上聊 好嘛？
    QQ： 417633145