procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := 'd:\ee.wma';
PlaySound(PChar('d:\ee.wma'), 0, SND_ASYNC);
end;前面引用了uses MMSystem;但是运行此段代码不能播放,请各位了解的帮忙指点。谢谢!
var
s: string;
begin
s := 'd:\ee.wma';
PlaySound(PChar('d:\ee.wma'), 0, SND_ASYNC);
end;前面引用了uses MMSystem;但是运行此段代码不能播放,请各位了解的帮忙指点。谢谢!
但是这样必须设置文件的路径,有什么方法可以把文件件是EXE进行绑定?
ExtractFilePath(paramstr(0))表示是EXE的根目录