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;

 

例如：

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;

 

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;