有人试过我上面给出的模板就。。。
“诶楼主啊,你给的模板只能将音乐播放一次啊,我们编个游戏什么的BGM肯定要循环播放啊!”
接下来是循环播放的教程:
uses crt;
function mciexecute(pszcommand:pchar):boolean;
stdcall;
external*winmm.dll*name*mciExecute*;
var s:string;a:ansiatring;p:pchar;
begin
readln(s);
a:=s;
p:=pchar(a);
mciexecute(*play *+p);
while true do begin
delay(2000);//延时两秒
mciexecute(*play *+p);
end;
end.
//以上代码为楼主在浏览器输入框手打,请自行编译调试!!