会python真的可以为所欲为0(回)
347天前
这里还有人吗1(回)
532天前这里还有人吗0(回)
532天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
757天前到处都是羊，不想上班0(回)
837天前
鸽子
0(回)
841天前procedure TForm1.Button1Click(Sender: TObject); |
begin |
//播放音乐 |
MCISendString(OPEN e: \1.MID type SEQUENCER ALIAS NN, , 0, 0); |
MCISendString(PLAY NN FROM 0, , 0, 0); |
MCISendString(CLOSE ANIMATION, , 0, 0); |
end; |
procedure TForm1.Button2Click(Sender: TObject); |
begin |
//停止播放 |
MCISendString(OPEN e: \1.MID type SEQUENCER ALIAS NN, , 0, 0); |
MCISendString(STOP NN, , 0, 0); |
MCISendString(CLOSE ANIMATION, , 0, 0); |
end; |
