在delphi7中想打造一个能播放背景音乐的程序,相关代码如下:
procedure TForm1.FormCreate(Sender: TObject);
begin
MCISendString('OPEN c:\huimeng.mid TYPE SEQUENCER alias yinyue', '', 0, 0);
MCISendString('PLAY yinyue', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
end;
但是运行时没有什么效果,也没有错误提示,下断点也没找出问题所在,请各位高手帮帮忙
uses里面加了MMsystem的
procedure TForm1.FormCreate(Sender: TObject);
begin
MCISendString('OPEN c:\huimeng.mid TYPE SEQUENCER alias yinyue', '', 0, 0);
MCISendString('PLAY yinyue', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
end;
但是运行时没有什么效果,也没有错误提示,下断点也没找出问题所在,请各位高手帮帮忙
uses里面加了MMsystem的
解决方案 »
- 关于SQL和delphi7编写的程序
- 利用DELPHI模拟点击某网页上的按钮问题
- 我没有delpi6.0和Spcomm控件 安装光盘?求助!!(谢谢各位,能快点告诉我吗?)
- access数据库支持like(模糊查询)方式么?
- ※※※※※斑竹给解决把,好像没人能解决了,大家得问题,讨论
- 咋么在Form里画图,比如画关于数学坐标的!
- 过节了,技术大放送4:将在TStringGrid中随机选取的行和列直接打印出来的控件。
- 界面排版专家 - UI 火枪手 - Delphi IDE 增强插件
- 调节音量,声道,位置
- 我不懂 endlish
- 用delphi 2007编译后运行报错:An error occurred while attempting to initialize the Borland Database Engine(error $2108)
- 关于listview控件中的checkboxes选中问题
begin
MCISendString('CLOSE ANIMATION', '', 0, 0);
end;下面是我的习惯做法...
从system面板中拖个MediaPlayer1控件放在FORM中;
将控件的visible属性设为False(背景播放);
procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.FileName:='c:\huimeng.mid';
try
MediaPlayer1.Open;
except
if MediaPlayer1.Error>=0 then
begin
ShowMessage('无法正常播放音乐!');
MediaPlayer1.Close;
end
else
MediaPlayer1.Play;
end;
end;