[Borec95]

Всем приветш!
Подскажите пожалуйста, как изменить размер окна чужого приложения? Заранее спасибо...

[NumLock]

Код:

var
  h: THandle;
  wp: WINDOWPLACEMENT;
begin
  // перед запуском программы запустите "Блокнот" notepad.exe
  h:=FindWindow('Notepad', nil);
  if h<>0 then
  begin
    Caption:=IntToStr(h);
    wp.length:=SizeOf(WINDOWPLACEMENT);
    GetWindowPlacement(h, @wp);
    wp.rcNormalPosition.Right:=wp.rcNormalPosition.Left+Screen.Width div 2;
    wp.rcNormalPosition.Bottom:=wp.rcNormalPosition.Top+Screen.Height div 2;
    SetWindowPlacement(h, @wp);
  end;
end;

[Borec95]

Спасибо большое))