[Code]
//--------------[这里是音乐定义(.mid)-------------
function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;
external 'mciSendStringA@winmm.dll stdcall';
//--------------这里是音乐定义(.mid)]-------------
//----------[这里是音乐加载----------
ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}/dream.mid')));
mciSendString(ExpandConstant('play {tmp}/dream.mid'),0,0,0);
//----------这里是音乐加载]----------
//--------------[这里是音乐定义(.mid)-------------
function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;
external 'mciSendStringA@winmm.dll stdcall';
//--------------这里是音乐定义(.mid)]-------------
//----------[这里是音乐加载----------
ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}/dream.mid')));
mciSendString(ExpandConstant('play {tmp}/dream.mid'),0,0,0);
//----------这里是音乐加载]----------
本文介绍了一种在程序中加载并播放MIDI音乐文件的方法。通过使用Delphi提供的mciSendString函数,可以轻松实现MIDI音乐文件的播放功能。
1265

被折叠的 条评论
为什么被折叠?



