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

[maks5]

Нужно узнать Height и Width чужого окна.
Искал по форуму, гугл не помогает. Надежда на вас
Заранее благодарен.

[chertovich]

Win Api в помощь

Находим дескриптор нужного окна при помощи FindWindow или EnumChildWindows

И получаем размер окон при помощи

GetWindowRect, GetClientRect

Хотя я могу ошибаться)

[maks5]

А можно по подробнее? Примерчик? Буду благодарен.

[Aliens_wolfs]

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

procedure TForm1.Timer1Timer(Sender: TObject);
var
  p: TPoint;
   h:HWND;
   WindowRect: TRect;
begin
//опрашиваем позицию мышы
GetCursorPos(p);
//получаем дескриптор окна под курсором
h:= WindowFromPoint(Mouse.CursorPos);
if h<>0 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 h<>0 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;

[maks5]

Отлично! от что нужно. Спасибо!