delphi得到指定窗口的坐标

delphi得到指定窗口的坐标

//edit1用来输入窗口标题

var
h :THandle;
r :TRect;
begin
h := FindWindow(nil,PChar(Edit1.Text));
if h 0 then
begin
GetWindowRect(h,r);
ShowMessage(IntToStr(r.Left));
ShowMessage(IntToStr(r.Top));
end;
end;