Delphi 窗体函数GetWindowRect 取窗口矩形坐标

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;

 

例如：

?

1 2 3 4 5 6 7

var   R: TRect; begin   GetWindowRect(Form1的句柄, R);   ShowMessageFmt('宽: %d, 高: %d, 横坐标: %d, 纵坐标: %d', [R.Right-R.Left,     R.Bottom-R.Top,R.Left,R.Top]); end;

 

?

1 2 3 4 5 6 7 8 9

var   hwnd:HWND;   R:TRect; begin   hwnd:=FindWindow('SciCalc','计算器');   GetWindowRect(hwnd,R);   lable1.Caption := IntToStr(R.Left)+','+ IntToStr(R.Top)+'/'+   IntToStr(R.Right)+ ','+ IntToStr(R.Bottom ); end;