procedure TForm1.Button1Click(Sender: TObject);
var
a:tmediaplayer;
begin
a:=tmediaplayer.create(application);
a.parent:=form1;
a.name:='asdf';
a.AutoEnable:=true;
a.DeviceType:=dtautoselect;
a.FileName:='C:\WINDOWS\MEDIA\Logoff.wav';
a.open;
a.play;
end;为什么出错??
var
a:tmediaplayer;
begin
a:=tmediaplayer.create(application);
a.parent:=form1;
a.name:='asdf';
a.AutoEnable:=true;
a.DeviceType:=dtautoselect;
a.FileName:='C:\WINDOWS\MEDIA\Logoff.wav';
a.open;
a.play;
end;为什么出错??
GreenWaterBlueSky(碧水蓝天) 的帮忙,,。。,,。分都给你!!!版主不要说我倒分哟:)不要让 GreenWaterBlueSky(碧水蓝天)
白帮忙:)