关于活动桌面，为什么一刷新窗体就不见了？晕。解决办法

关于活动桌面，为什么一刷新窗体就不见了？晕。。。
高手帮忙看看，我这个FORM里放的是一个FLASH....为什么一刷新该窗体就隐藏不见了？

在线等。。。。

//活动桌面
procedure   TForm1.Createparams(var   params:   TCreateParams);
begin
    inherited   CreateParams(Params);
    with   params   do
    begin
        Style:=WS_POPUP;
        ExStyle   :=     WS_EX_TOOLWINDOW   or   WS_EX_TOPMOST   or   WS_EX_NOACTIVATE   or   WS_EX_WINDOWEDGE   or   WS_EX_TRANSPARENT;
        WndParent   :=   GetWindow(FindWindow( 'Progman ',   nil),   GW_CHILD);
    end;
end;


[解决办法]
Params.WndParent := GetDesktopWindow;？？？