Узнать размеры чужой программы

Posted by micher under Delphi

Как узнать Height и Width чужого окна?

Aliens_wolfs

Простенький пример: ловим Хэндел окна под указателем мыши и узнаем его положение и размеры с выводом результата в Caption:

procedure TForm1.Timer1Timer(Sender: TObject);

var

  p: TPoint;

   h:HWND;

   WindowRect: TRect;

begin

//опрашиваем позицию мыши

GetCursorPos(p);

//получаем дескриптор окна под курсором

h:= WindowFromPoint(Mouse.CursorPos);

if h0 then

begin

//Узнаем положение и размеры окна по курсором

 GetWindowRect(H, WindowRect);

 Caption:=Format('top=%d Left=%d Width=%d Height=%d',[WindowRect.Top, WindowRect.Left,

WindowRect.Right-WindowRect.left, WindowRect.Bottom-WindowRect.Top]);

end;

end;

Можно использовать FindWindow вместо GetCursorPos, но тогда нужно точно указать название окна, либо класс.

Примерно так:
Таймер будет следить за изменениями окна блокнота:

procedure TForm1.Timer1Timer(Sender: TObject);

var

   h:HWND;

   WindowRect: TRect;

begin

//Ищем Хэндел блокнота

h := findwindow(nil, 'Безымянный - Блокнот');

if h0 then

begin

//Узнаем положение и размеры найденого окна блокнота

 GetWindowRect(H, WindowRect);

 Caption:=Format('top=%d Left=%d Width=%d Height=%d',[WindowRect.Top, WindowRect.Left,

WindowRect.Right-WindowRect.left, WindowRect.Bottom-WindowRect.Top]);

end;

end;

тема на форуме

Похожие статьи

• Определить центр чужого окна
• Как узнать ширину и высоту панели «Пуск»
• Как в другом окне кликнуть на кнопку
• Запрет запуска второй копии программы
• GetDIBits пишет за буфер => Heap corruption detected.
• Отправить клик в чужое приложение
• Запрет на второе появление иконки
• Изменение Caption чужих окон
• Управление чужой программой
• Как получить данные с чужой программы в свою?