[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);
//----------这里是音乐加载]----------