Extjs的Desktop弹出信息提示窗口的代码，在Windows系统桌面右下角弹出友情提示

void __fastcall TForm1::FormActivate(TObject *Sender)
{
//信息提示窗体，特点是适应了任务栏的所有情况
TRect k;
HWND handle=GetDesktopWindow();//得到桌面的handle
GetWindowRect(handle,&k);//得到桌面的大小

TRect rt;
SystemParametersInfo(SPI_GETWORKAREA, 0, &rt, 0);
int x=::GetSystemMetrics(SM_CXSCREEN)-rt.Width();//任务栏在右面的宽度
int y=::GetSystemMetrics(SM_CYSCREEN)-rt.Height();//任务栏在下面的高度
/*----------------------------------------
//C++Builder专家社区[url]www.3322ee.com[/url]原创文章
//转载请保留本版权信息，谢谢合作
----------------------------------------*/
//下面的两种显示效果①和②任选一个
//①直接显示在右下角：直接显示没有动画效果，可以放在窗体的Create事件也可以放在Activate事件里面
Left=k.Width()-Width-x;
    if(Left<0)Left=0;
Top=k.Height()-Height-y;
    if(Top<0)Top=0;

//②逐渐向上显示：要放在窗体的Activate事件里才能看到效果
Left=k.Width()-Width-x;
    if(Left<0)Left=0;
Top=k.Height();
    for(;;){
      //Application->ProcessMessages();//在长时间循环中响应消息
        if(Top==0)break;//结束整个循环
        if(Top<=k.Height()-Height-y)break;//结束整个循环
      Top-=2;//改变数值可以改变窗体出现的速度
      //Sleep(1);//延时，进一步调整窗体移动速度时使用
    }
}