通过指点操作获得窗口句柄

通过指点操作获得窗口句柄

赵砥:
    我用VB的sendkeys编写了一个向其他程序模拟键盘发送字符的工具，因VB编的程序体积太大，
    我想用Delphi重写，使用SendMessage等API函数，但我想找到一个用鼠标点一下其他进程的
    窗口便可获得该窗口的线程id和窗口句柄的方法，请指点一下。（使用findwindow获得窗口
    句柄要输入窗口标题，不好。）
回答:
    首先需要说明要在Delphi 实现Sendkeys功能，应该使用Journal Playback钩子(hook)函数，
    而不是使用SendMessage函数。下面我们来介绍如何利用鼠标移动让用户选择窗口，而程序
    进一步得到窗口的句柄。Windows API中有一个函数WindowFromPoint，只要知道鼠标的位置
    (屏幕坐标)，就可以得到该位置所属的窗口的句柄，有了句柄，就可以利用其他的函数得到
    更多的信息。如果鼠标在程序的窗口中移动，可以得到MouseMove事件。要想鼠标在窗口外部
    移动时，仍能得到鼠标事件，必须使用SetCapture函数。下面这个例子就是利用这两个函数
    来实现你所要求的功能。
    
    type
     TForm1 = class(TForm)
     …………
    public
     procedure InvertTracker(hwndDest : Integer);
     end;
     …………
    var
     Form1: TForm1;
     mlngHwndCaptured: Integer;
     hWndLast: Integer;
     …………
    procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
     Y: Integer);
    var pt : TPoint;
    begin
     if GetCapture() <> 0 then // 处于捕捉状态
     begin
     pt.X := X;
     pt.Y := Y;
     ClientToScreen(pt); // 获得鼠标的屏幕位置
     // 获得窗口句柄
     mlngHwndCaptured := WindowFromPoint(pt);
    
     if hWndLast <> mlngHwndCaptured then
     begin
     if hWndLast <> 0 then // 使窗口边框加粗
     InvertTracker(hWndLast);
     InvertTracker(mlngHwndCaptured);
     hWndLast := mlngHwndCaptured;
     end
     end;
     // 显示坐标和窗口句柄
     Caption := 'X: ' + IntToStr(x) + ', Y: ' + IntToStr(y)
     + ', hWnd: ' + IntToStr(mlngHwndCaptured);
    end;
    
    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
    begin
     if SetCapture(handle) <> 0 then // 开始捕捉
     Cursor := crUpArrow;
    end;
    
    procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
    var strCaption: PChar;
    begin
     If mlngHwndCaptured <> 0 Then
     begin // 获得窗口标题
     strCaption := StrAlloc(1000);
     GetWindowText(mlngHwndCaptured, strCaption, 1000);
     Caption := StrPas(strCaption);
     InvalidateRect(0, PRect(0), True);
     mlngHwndCaptured := 0;
     Cursor := crDefault;
     ReleaseCapture;
     StrDispose(strCaption);
     hWndLast := 0;
     end
    end;
    // 使窗口边框变粗
    procedure TForm1.InvertTracker(hwndDest: Integer);
    var
     hdcDest, hPen, hOldPen, hOldBrush : Integer;
     cxBorder, cxFrame, cyFrame, cxScreen, cyScreen, cr : Integer;
     rc : TRect;
    Const NULL_BRUSH = 5;
    Const R2_NOT = 6;
    Const PS_INSIDEFRAME = 6;
    begin
     cxScreen := GetSystemMetrics(0);
     cyScreen := GetSystemMetrics(1);
     cxBorder := GetSystemMetrics(5);
     cxFrame := GetSystemMetrics(32);
     cyFrame := GetSystemMetrics(33);
     GetWindowRect(hwndDest, rc);
    
     hdcDest := GetWindowDC(hwndDest);
    
     SetROP2(hdcDest, R2_NOT);
     cr := clBlack;
     hPen := CreatePen(PS_INSIDEFRAME, 3 * cxBorder, 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 TForm1.FormCreate(Sender: TObject);
    begin
     Left := 0;
     Top :=0;
     ClientHeight := 76;
    end;
    
    运行该程序时，先在程序窗口内点一下，然后按住鼠标左键不放，移动鼠标，这时你会
    看到程序窗口的标题位置不断显示鼠标的当前位置(窗口坐标)和鼠标所在位置的窗口句柄。
    同时，被选中的窗口边框加粗，一旦放开左键，则程序窗口的标题就改为所选中窗口的标题。
    相信许多人对这种操作方式都会感到熟悉，因为象Spy++(Visual C++)、Magic Mouse、
    Capture Professional等很多软件都是采用类似的操作来选择窗口的。