求例子,百度查了一下都看不懂~~~
解决方案 »
- 为什么我写的ftp客户端无法连上FTP服务器,但是用cuteftp没问题?
- 关于DriveComboBox问题???当我选择a盘时a盘没有软盘,弹出i/o错误!我用try except捕获异常不行啊~求救!
- 有关饼图(pie)应用问题向大家求助!
- 如何在一串字符串里把我需要我内容取来放入TSringList内???
- 巨大文本文件操作的问题
- csdn登录时为什么不用回车进入?(强烈建议)
- 您用过dbExpress吗?
- 关于Radius认证服务客户端程序打包的基础问题(Delphi贴)
- delphi dspark 或 DirectShow 怎样实现音视频同步(200分)
- 如何为InstallShield Express for D5 添加序例号输入
- 关于groupbox点击按钮自动适应窗口问题
- 请问XMLHTTP多线程的问题。
uses MMSystem;procedure TForm1.btn1Click(Sender: TObject);
var
fName: string;
begin
fName := 'c:\the_moment';
begin
;
MCISendString(PChar(Format('OPEN %s TYPE mpegvideo alias ww', [fName])),
nil, 0, 0);
MCISendString('PLAY WW', nil, 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
end;
end;
只要注意音乐文件名不要带空格,空格可以用 _ 下划线代替