如何实现双击程序托盘图标弹出或者弹入动画效果

天云上人

BOOL WINAPI   DrawAnimatedRects(HWND hwnd, int idAni, CONST RECT * lprcFrom, CONST RECT * lprcTo);   
Eg:   
Bool m_bShow = false;  //区分弹出还是弹入   
BOOL WinAnimation()   
{   
+ s" `+ V! A' F2 _     CWnd * pWnd=FindWindow("Shell_TrayWnd",NULL);  //windows底部信息提示窗口   
5 i% J; I  ^+ d" {8 _6 [0 r, P     if(!pWnd)return FALSE;   
     CRect rectSur,rectDst;   
* a; c9 n" g, n. F+ R     GetWindowRect(&rectSur);  //本窗口大小,用户自己处理   
. f. z; W7 L9 y. y      EnumChildWindows(pWnd->GetSafeHwnd(),My_Find,(LPARAM)&rectDst);  //寻找托盘   
# @' v1 v: H3 C9 Z     if(m_bShow)DrawAnimatedRects(GetSafeHwnd(),IDANI_CAPTION,&rectSur,&rectDst);  //弹入   
     else DrawAnimatedRects(GetSafeHwnd(),IDANI_CAPTION,&rectDst,&rectSur); //弹出   
1 H* Q! u; g: z& d, U$ e/ v     return TRUE;   
! I- }( L2 L9 i' \- E}   
# s8 B3 o4 k1 K9 K9 q" n1 eBOOL CALLBACK My_Find(HWND hwnd, LPARAM lParam)   
//寻找托盘位置   
) ?3 E, {' A4 {1 L& |+ f{   
    TCHAR szClassName[256];   
     GetClassName(hwnd, szClassName, 255);   
+ T2 C% l) z5 d' q# P( q" ^    // 比较窗口类名   
+ O' D$ ]! A2 Tif (_tcscmp(szClassName, _T("TrayNotifyWnd")) == 0)   
2 V9 P6 u# l; \: ^$ `( j3 [     {   
9 I* a, r* }  U2 |' J7 c0 ?         CRect *pRect = (CRect*) lParam;         
         ::GetWindowRect(hwnd, pRect);   
0 R6 d* I9 n1 ]. ?7 _( N        return TRUE;   
     }   
5 j) F; H2 B& x1 `& j7 R9 x% d// 当找到时钟窗口时表示可以结束了   
0 |0 [: p3 n- ~4 _( r    if (_tcscmp(szClassName, _T("TrayClockWClass")) == 0)   
     {   
+ C' K6 w; |8 x5 B- w9 L2 c. {8 ^         CRect *pRect = (CRect*) lParam;   
; `/ c$ B, ~. b( k         CRect rectClock;   
         ::GetWindowRect(hwnd, rectClock);   
8 i/ T% h1 H) b$ d7 p         pRect->right = rectClock.left;   
        return FALSE;   
  h' E  h( t7 S6 y* V9 V  s+ F  }- K7 K* _     }   
    return TRUE;   
}