本文整理自网络,侵删。
uses System.Win.ComObj;
varPlayer: olevariant; Player := CreateOleObject('wmplayer.ocx.7'); Player.url := olevariant(UTF8Decode('123.mp3'));
Player.Controls.Play; //播放
Player.Controls.Pause; //暂停
Player.Controls.Stop; //停止
相关阅读 >>
Delphi tms web core webmemo 横竖滚动条
Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号?
更多相关阅读请进入《Delphi》频道 >>