无VCL播放RES资源声音文件。 |
|
|
|
wnhoo
高階會員   發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
无VCL播放RES资源声音文件。
emy.rc
a1 Wave a1.mid
a2 Wave a2.mid
a3 Wave a3.mid
hehua RCDATA hehua.jpg
mypic RCDATA mypic.JPG
me EXEFILE me.exe //unit1.pas部分
implementation
{$R emy.res}
uses mmsystem ; procedure TForm1.Button3Click(Sender: TObject);
var
wavestr:string;
begin
wavestr:='c:\3.MID';
ExtractRes('Wave','a1',wavestr);
//播放音乐
MCISendString('OPEN c:\3.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);
MCISendString('PLAY NN FROM 0', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0); end; procedure TForm1.Button4Click(Sender: TObject);
begin
//停止播放
MCISendString('OPEN c:\3.MID TYPE SEQUENCER ALIAS NN', '', 0, 0);
MCISendString('STOP NN', '', 0, 0);
MCISendString('CLOSE ANIMATION', '', 0, 0);
end; 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
發表時間：2003-04-22 09:53:16
IP:61.155.xxx.xxx 未訂閱
系統時間：2024-04-26 14:41:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |