安装控件ShockwaveFlash1: TShockwaveFlash;在formshow中写shockwaveflash1.Movie := ExtractFilePath(Application.ExeName) +'swf视频\soft.swf';shockwaveflash1.play;
