有没有用playsound()试一试,我记得用他播放WAV文件好用,MID你也试试吧
解决方案 »
- 这个源码大家看下能否调试出来,我没有运行成功。
- sql做的导入语句老是出错,大家看看.
- 小弟欲做一个工资系统,但以前都没有做过,求大侠们路过发个源码让我学习一下。多谢!!
- quickreport报表循环连续打印问题
- 为什么网页上的一些广告和某些内容显示不出来?
- 请问怎样使installshield6.2打的包反安装时一些系统文件不删除呢?
- 求《Delphi网络通信协议分析与应用实现>>附带源代码.
- 特急!!使用QuickReport时,第一页打印正常,第二页打印不正常
- DELPHI 难学吗
- **************请教关于DBGrid中的cbsEllipsis的使用方法******************
- 帮忙!关于help文件的问题。
- 告急!告急!
2:CM_MouseEnter,CM_MOUSELEAVE消息。
senmcistring();
使用 MCI 命令方式的 API 可以使用 mciSendCommand 或者 mciSendString 。推荐后者,因为可以用 MCI 命令原语作为字符串参数传递,很方便。句个例子:
var
csTemp: PChar;
asTemp: string;
i: Integer;
begin
csTemp := StrAlloc(256);
// 打开 midi 文件
i := mciSendString('open demo.mid alias demo', csTemp, 256, Self.Handle);
if i <> 0 then
begin
// 出错
asTemp := csTemp; // 获取出错信息
ShowMessage(asTemp);
end;
// 播放
i := mciSendString('play demo', csTemp, 256, Self.Handle);
if i <> 0 then
begin
// 出错
asTemp := csTemp; // 获取出错信息
ShowMessage(asTemp);
end;
StrDispose(csTemp);
end;