教学课题：SPY++ 结合Delphi7.0利用API函数GetWindowRect取计算器窗口矩形坐标、用SetCursorPos函数置鼠标位置及用mouse_event实现模拟鼠标按下数字键"8"
教学目标：用Delphi7.0编程坏境，以计算器为例模拟鼠标输入QQ号：854487915
教学步骤：1、认识API函数：(1)、GetWindowRect，用于取窗口矩形坐标。返回值类型：布尔型(LongBool)。执行成功返回真(True)，否则返回假(False);参数1类型：整数型(HWND)，目标窗口的窗口句柄;参数2类型：坐标结构(RECT)，目标窗口的坐标结构地址。在Windows SDK中的函数原型：
BOOL GetWindowRect(
       HWND hWnd,  // handle of window              参数1：目标窗口句柄
       LPRECT lpRect   // address of structure for window coordinates 参数2：窗口的坐标结构地址
     );

RECT定义：

typedef struct _RECT {       // rc  
       LONG left;                //桌面窗口到目标窗口的左边距
       LONG top;                //桌面窗口到目标窗口的顶边距
       LONG right;            //桌面窗口到目标窗口的右边距
       LONG bottom;    //桌面窗口到目标窗口的底边距
} RECT;

(2)、SetCursorPos，用于设置鼠标当前位置。返回值类型：布尔型(LongBool)。执行成功返回真(True)，否则返回假(False);参数1类型：整数型(Integer)，水平位置X;参数2类型：整数型(Integer)，垂直位置Y。在Windows SDK中的函数原型：
BOOL SetCursorPos(

       int X,  // horizontal position   参数1：水平位置
       int Y   // vertical position           参数2：垂直位置
     );

(3)、mouse_event，用于模拟鼠标动作。无返回值。参数1类型：整数型(Integer)，鼠标动作标识;参数2类型：整数型(Integer)，鼠标动作的水平坐标X;参数3类型：整数型(Integer)，鼠标动作的垂直坐标Y;参数4类型：整数型(Integer)，鼠标滚轮转动方向，若当前鼠标无滚轮动作，则取值为0;参数5在Windows SDK中的函数原型：
VOID mouse_event(

教学源码：

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;

type
   TForm1 = class(TForm)
       lb1: TLabel;
       edt1: TEdit;
       btn1: TButton;
       lb2: TLabel;
       procedure btn1Click(Sender: TObject);
   private
       { Private declarations }
   public
       { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
   ck_hwnd:HWND;
   ck_R:TRect;
begin
   ck_hwnd:=FindWindow('SciCalc','计算器');
   edt1.Text := IntToHex(ck_hwnd,8);
   GetWindowRect(ck_hwnd,ck_R);
   lb2.Caption := IntToStr(ck_r.Left)+','+ IntToStr(ck_R.Top)+'/'+
   IntToStr(ck_R.Right)+ ','+ IntToStr(ck_R.Bottom );
   //实现按下数字键8
   SetCursorPos(350+ ck_R.Left ,150+ ck_R.Top )   ;
   mouse_event(MOUSEEVENTF_LEFTDOWN,350+ ck_R.Left,150+ ck_R.Top,0,0);
   Sleep(100);
   mouse_event(MOUSEEVENTF_LEFTUP,350+ ck_R.Left,150+ ck_R.Top,0,0);

end;

end.