【转】delphi播放背景音乐
//播放.MP3文件: uses mmsystem; //開始播放: procedure TForm1 . Button1Click(Sender: TObject); begin MCISendString( 'OPEN e:\1.mp3 TYPE mpegvideo alias ww' , nil , 0 , 0 ); MCISendString( 'PLAY WW' , nil , 0 , 0 ); MCISendString( 'CLOSE ANIMATION' , nil , 0 , 0 ); end ; //停止播放 procedure TForm1 . Button2Click(Sender: TObject); begin MCISendString( 'OPEN e:\1.mp3 TYPE mpegvideo alias ww' , nil , 0 , 0 ); MCISendString( 'STOP ww' , nil , 0 , 0 ); MCISendString( 'CLOSE ANIMATION' , nil , 0 , 0 ); end ; |
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 智能桌面机器人:用.NET IoT库控制舵机并多方法播放表情
· Linux glibc自带哈希表的用例及性能测试
· 深入理解 Mybatis 分库分表执行原理
· 如何打造一个高并发系统?
· .NET Core GC压缩(compact_phase)底层原理浅谈
· 手把手教你在本地部署DeepSeek R1,搭建web-ui ,建议收藏!
· 新年开篇:在本地部署DeepSeek大模型实现联网增强的AI应用
· Janus Pro:DeepSeek 开源革新,多模态 AI 的未来
· 互联网不景气了那就玩玩嵌入式吧,用纯.NET开发并制作一个智能桌面机器人(三):用.NET IoT库
· 【非技术】说说2024年我都干了些啥