实现 SPY++ 的 FindWindow Tool 的高亮

实现 SPY++ 的 FindWindow Tool 的高亮(highlight)一个应用程序的窗体或内部 Object 的边缘

方法一:  
通过  SelectObject  来实现  
 
procedure  InvertTracker(hwndDest:  HWND);  
//画边框  
var  
 hdcDest      :  HWND;  
 hPen            :  HWND;  
 hOldPen      :  HWND;  
 hOldBrush  :  HWND;  
 cr                :  HWND;  
 rc                :  TRect;  
begin  
 GetWindowRect(hwndDest,  rc);  
 hdcDest  :=  GetWindowDC(hwndDest);  
 SetROP2(hdcDest,R2_NOT);  
 cr        :=  clBlack;  
 hPen    :=  CreatePen(PS_INSIDEFRAME,2,cr);  
 
 hOldPen      :=  SelectObject(hdcDest,  hPen);  
 hOldBrush  :=  SelectObject(hdcDest,  GetStockObject(NULL_BRUSH));  
 Rectangle(hdcDest,  0,  0,  rc.Right  -  rc.Left,  rc.Bottom  -  rc.Top);  
 SelectObject(hdcDest,  hOldBrush);  
 SelectObject(hdcDest,  hOldPen);  
 
 ReleaseDC(hwndDest,  hdcDest);  
 DeleteObject(hPen);  
end;      
 
 
方法二:  
将边框区域颜色取反  
 
procedure  HighlightWindow(hWndWindow:  HWND);  
var  hDCWindow:  HDC;  
     RECT:  TRect;  
     DINV:  Integer;  
begin  
 if  (hWndWindow  =  0)  or  (Not  IsWindow(hWndWindow))  then  
     Exit  
 else  begin  
     hDCWindow  :=  GetWindowDC(hWndWindow);  
     Windows.GetWindowRect(hWndWindow,  RECT);  
     OffsetRect(RECT,  -RECT.Left,-RECT.Top);  
 
     DINV  :=  4;  
     if  Not  IsRectEmpty(RECT)  then  
     begin  
         PatBlt(hDCWindow,  RECT.Left,  RECT.Top,  RECT.Right  -  RECT.Left,  DINV,  DSTINVERT);  
         PatBlt(hDCWindow,  RECT.left,  RECT.bottom  -  DINV,  DINV,  
                     -(RECT.bottom  -  RECT.top  -  2  *  DINV),  DSTINVERT);  
         PatBlt(hDCWindow,  RECT.right  -  DINV,  RECT.top  +  DINV,  DINV,  
                     RECT.bottom  -  RECT.top  -  2  *  DINV,  DSTINVERT);  
         PatBlt(hDCWindow,  RECT.right,  RECT.bottom  -  DINV,  -(RECT.right  -  RECT.left),  
                     DINV,  DSTINVERT);  
     end;  
     ReleaseDC(hWndWindow,  hDCWindow);  
 end;  
end;  
 
不过这两个都无法实现异型窗体的高亮,