P ptfjy Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-20 #21 ^nEWnEW^：你好 现在还有一事不明，怎样在“线程里面创建一个TMediaPlayer”？ mid音乐文件能否播放？ 此问题马上结束，给分！
N ^nEWnEW^ Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-20 #22 先声明一个变量用于存放MediaPlayer实例。 var MyPlayer: TMediaPlayer; //最好是作为线程类的私有成员，放在Private中 创建： MyPlayer := TMediaPlayer.Create(Self); 使用： MyPlayer.xxxxxxxxx; 事件： MyPlayer.OnNotify := MyNotify; //这里的MyNotify是一个自己写的函数
先声明一个变量用于存放MediaPlayer实例。 var MyPlayer: TMediaPlayer; //最好是作为线程类的私有成员，放在Private中 创建： MyPlayer := TMediaPlayer.Create(Self); 使用： MyPlayer.xxxxxxxxx; 事件： MyPlayer.OnNotify := MyNotify; //这里的MyNotify是一个自己写的函数
P ptfjy Unregistered / Unconfirmed GUEST, unregistred user! 2003-12-20 #23 如何判断线程有没有释放呢？ if 此线程没有释放 then ////////这句有没有释放线程该如何写呢？ begin PT.free; //注：为释放线程 end; close;
