L lianghf2000 Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-24 #1 我编写了一Delphi程序，现须在运行此程序一开始便启动 背景音乐，程序运行结束音乐也停止。不知如何解决为好？ 谢谢！
K Kill Night Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-24 #2 其实很简单，在创建程序的时候，建立一个线程，来播放音乐，而到了结束的时候， 关闭此线程。
L lianghf2000 Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-24 #3 我觉得在主窗体FormCreate事件中调用 shellexecute(application.handle,nil,pchar('c:/demo.mp3'),nil,nil,sw_shownormal); 也可以，但主窗体关闭时如何结束播放音乐？
我觉得在主窗体FormCreate事件中调用 shellexecute(application.handle,nil,pchar('c:/demo.mp3'),nil,nil,sw_shownormal); 也可以，但主窗体关闭时如何结束播放音乐？
J jianl Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-24 #4 一般的使用TMediaPlayer MP3我用的是MPEGPlayer，挺好用的（除了PAUSE会等待5秒），最重要的是有SC的， 需要的话，给你E-MAIL一份。
B beta Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-25 #5 在线程里面用 mpegplayer 不就可以了？这是一个不错的控件哦！
L lplq Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-25 #7 直接用TMediaPlayer控件，很简单，也可以控制播放停止。 procedure TForm1.FormCreate(Sender: TObject); var MusicFile:File; Music_Playing,MusicFileExist:Boolean; begin {$I-} AssignFile(MusicFile,'music.mid'); filemode:=0; Reset(MusicFile); CloseFile(MusicFile); {$I+} MusicFileExist:=(IOResult=0); if(MusicFileExist) then begin MediaPlayer1.Open; MediaPlayer1.Play; Music_Playing:=True; end; end; 在TMediaPlayer控件属性中设置为开，就可以了。
直接用TMediaPlayer控件，很简单，也可以控制播放停止。 procedure TForm1.FormCreate(Sender: TObject); var MusicFile:File; Music_Playing,MusicFileExist:Boolean; begin {$I-} AssignFile(MusicFile,'music.mid'); filemode:=0; Reset(MusicFile); CloseFile(MusicFile); {$I+} MusicFileExist:=(IOResult=0); if(MusicFileExist) then begin MediaPlayer1.Open; MediaPlayer1.Play; Music_Playing:=True; end; end; 在TMediaPlayer控件属性中设置为开，就可以了。
L lianghf2000 Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-28 #8 TMediaPlayer在我的控件板上没有，加入Install component也没找到。
C cHengyAng Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-28 #10 参看:电脑报1999年合定本吧,就是用MPEGPlayer做的,要原代码吗?
