我在form1里放置了一个windowsmediaplayer,一个button。路径什么的我就不说了,我想点击button进入form2.可是 windowsmediaplayer的声音还在继续。想问问有什么方法可以停止声音。代码如下:
procedure Tfrm_welcome.FormCreate(Sender: TObject);
begin
wmp.URL:=ExtractFilePath(paramstr(0))+'image\楼整体带音乐.mpg';
end;
procedure Tfrm_welcome.button1click(Sender: TObject);
begin
if wmp.playState>1 then
   wmp.controls.stop;
self.Hide;
frm_main:=Tfrm_main.create(application);
frm_main.showmodal;
self.Hide;
end;