D D影子D Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-11 #3 procedure TForm1.Button1Click(Sender: TObject); begin mediaplayer1.filename:='f:/1.mid'; mediaplayer1.open; mediaplayer1.play; end; //mediaplayer的aotoopen设为false
procedure TForm1.Button1Click(Sender: TObject); begin mediaplayer1.filename:='f:/1.mid'; mediaplayer1.open; mediaplayer1.play; end; //mediaplayer的aotoopen设为false
