搞了一個res
123 mp3 123.mp3
在uses 添加了 mmsystem
procedure TForm1.Button1Click(Sender: TObject);
begin
MCISendString('OPEN d:/1.mp3 TYPE mpegvideo alias ww',nil, 0, 0);
MCISendString('PLAY WW', nil, 0, 0);
end;
這樣就可以播放
但是這樣不能體現出res的作用
build的project 復制到其它電腦 運行的時候沒有聲音
想請教 怎么呼叫res的mp3
謝謝！
uj5u.com熱心網友回復：
可以用TResourceStream把資源檔案釋放到磁盤uj5u.com熱心網友回復：
@hj8090 大猿方便給點code嗎？
MCISendString('OPEN d:/1.mp3 TYPE mpegvideo alias ww',nil, 0, 0);
關鍵是OPEN 后面的 filename
謝謝！
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/175004.html
上一篇：《自拍教程44》Python adb一鍵截取Logcat日志
下一篇：Django 模型筆記