Inno Setup 播放背景音乐

本文介绍了一种在程序中加载并播放MIDI音乐文件的方法。通过使用Delphi提供的mciSendString函数,可以轻松实现MIDI音乐文件的播放功能。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值