Simple MP3 playback-Reply to "heyongan"

Problem Source: http://www.cnblogs.com/del/archive/2008/09/17/1288772.html#1319271

CodeFile:

 
Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, mplayer; Type tform1 = Class (tform) button1: tbutton; mediaplayer1: tmediaplayer; Procedure button1click (Sender: tobject); Procedure formcreate (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} procedure upload (Sender: tobject); begin mediaplayer1.visible: = false; end; Procedure upload (Sender: tobject); begin mediaplayer1.filename: = 'C: \ temp \ testobject '; mediaplayer1.open; mediaplayer1.play; end.

  
 

Form file:

 Object form1: tform1 left = 0 Top = 0 caption = 'form1 'clientheight = 149 clientwidth = 270 color = clbtnface font. charset = default_charset font. color = clwindowtext font. height =-11 font. name = 'tahoma 'font. style = [] oldcreateorder = false oncreate = formcreate pixelsperinch = 96 textheight = 13 object button1: tbutton left = 96 Top = 72 width = 75 Height = 25 caption = 'button1' taborder = 0 onclick = button1click end object mediaplayer1: tmediaplayer left = 8 Top = 24 width = 253 Height = 30 taborder = 1 endend