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

天云上人

BOOL WINAPI   DrawAnimatedRects(HWND hwnd, int idAni, CONST RECT * lprcFrom, CONST RECT * lprcTo);   
0 T8 D' H0 Z  X1 [4 mEg:   
Bool m_bShow = false;  //区分弹出还是弹入   
+ }7 X9 o( b3 v' U5 u+ u" G( R3 o+ H/ KBOOL WinAnimation()   
7 W6 [. y$ W! |$ Q) h* t$ }3 m# B{   
     CWnd * pWnd=FindWindow("Shell_TrayWnd",NULL);  //windows底部信息提示窗口   
5 _1 k6 Z. v8 s8 U. B     if(!pWnd)return FALSE;   
/ w; Z. ]3 m( t/ s- E7 |8 S     CRect rectSur,rectDst;   
' Q, U1 H' a4 W# U7 f     GetWindowRect(&rectSur);  //本窗口大小,用户自己处理   
      EnumChildWindows(pWnd->GetSafeHwnd(),My_Find,(LPARAM)&rectDst);  //寻找托盘   
     if(m_bShow)DrawAnimatedRects(GetSafeHwnd(),IDANI_CAPTION,&rectSur,&rectDst);  //弹入   
     else DrawAnimatedRects(GetSafeHwnd(),IDANI_CAPTION,&rectDst,&rectSur); //弹出   
     return TRUE;   
}   
2 d3 ]8 e9 E4 l& Y3 R) ^- tBOOL CALLBACK My_Find(HWND hwnd, LPARAM lParam)   
; j; r4 Y! k: l" p% w# t5 a//寻找托盘位置   
% p0 U5 G5 E! ?- r9 S8 w% g{   
. n6 y, B  X9 P8 t. z  z( f5 r/ S    TCHAR szClassName[256];   
     GetClassName(hwnd, szClassName, 255);   
& |. e; Z8 I$ [    // 比较窗口类名   
if (_tcscmp(szClassName, _T("TrayNotifyWnd")) == 0)   
3 ^9 T9 n" \7 {     {   
9 z3 d+ s/ L* q9 ^         CRect *pRect = (CRect*) lParam;         
         ::GetWindowRect(hwnd, pRect);   
        return TRUE;   
     }   
/ e$ |9 y0 \7 _6 m( l7 ~7 }. ]// 当找到时钟窗口时表示可以结束了   
    if (_tcscmp(szClassName, _T("TrayClockWClass")) == 0)   
; J9 B7 }2 y/ D# N7 h5 d9 O/ Z     {   
5 @: m5 z7 @$ V* d3 M3 G5 {5 k         CRect *pRect = (CRect*) lParam;   
         CRect rectClock;   
         ::GetWindowRect(hwnd, rectClock);   
         pRect->right = rectClock.left;   
        return FALSE;   
     }   
    return TRUE;   
}