求大神

https://tieba.baidu.com/p/3115634541

function mciExecute(pszCommand:PCHAR):BOOLEAN; stdcall; external *winmm.dll* name *mciExecute*;
function music(st:string):integer;
var f:boolean;
begin
if not(fileexists(st)) then exit(1);
f:=mciExecute(pchar(*play *+st));
if f then exit(0)
else exit(1);
end;
这个是非GUI的，比较好理解，而且不使用其他单元

具体的我也不大清楚，给你召唤个大神，让他来教你@ax_pokl