C++builder ShockwaveFlash 利用窗体透明属性 实现 播放flash 透明背景

    最近在做一个项目中遇到的问题，如何实现 播放背景透明的flash，参考了妖哥论坛上的帖子《模仿QQ魔法表情》[url=http://www.ccrun.com/view.asp?id=22][/url]，就是截图作为html背景 用CppWebBrowser 显示 加载了flash的html，但是存在问题，如果背景发生了变化，就演砸了。。。
    我的解决方法就是 利用Form的AlphaBlend、AlphaBlendValue、TransparentColor、TransparentColorValue， ShockwaveFlash的BGColor属性，不过这个只能实现在win7下 透明，如果要在XP下实现 请结合本文方法和上面的帖子，在帖子的实现方法中 请不要使用截图的那个方法，直接将html的背景颜色 设为 form中设置的透明色，就能实现。 
     具体实现：

__fastcall TPlayForm::TPlayForm(TComponent* Owner)
        : TForm(Owner)
{
        String nowPath = ExtractFilePath(Application->ExeName);
        this->BorderStyle = bsNone;
        this->Position = poScreenCenter;
        this->FormStyle = fsStayOnTop;


        this->AlphaBlend = true;
        this->AlphaBlendValue = 255;
        this->TransparentColor = true;
        this->TransparentColorValue = 0x00010000;


        this->ShockwaveFlash1->BGColor = "000001";
        this->ShockwaveFlash1->Movie = nowPath + "launch.swf";
}

效果如图

代码下载： 点击打开链接