Нахождение позиции внешнего окна?

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;

Answer 3

Имейте в виду, если окно (приложение) свернуто, вы получите некоторые значения для Rect, подобные этим (-32000, -32000, -31840, -31972, (-32000, -32000), (-31840, -31972))