windows - 外部ウィンドウの位置を見つけていますか?

Question

Delphiでウィンドウハンドルの画面相対位置を見つけるにはどうすればよいですか? (X,Y)

Answer 1

FindWindow() を使用してウィンドウのハンドルを取得し、GetWindowRect() を使用して座標を取得します。

var 
 NotepadHandle: hwnd;
 WindowRect: TRect;
begin
 NotepadHandle := FindWindow(nil, 'Untitled - Notepad');

 if NotepadHandle <> 0 then
   GetWindowRect(NotepadHandle, WindowRect)

end;

Answer 2

GetWindowRect関数を使ってみる

var
  lpRect: TRect;
begin
   GetWindowRect(Edit1.Handle,lpRect);  
   ShowMessage(Format('%d,%d',[lpRect.Left,lpRect.Top]));
end;