Change size of other window

Posted in Application

Use FindWindow function to find handle of the foreign window and MoveWindow function to change position and dimensions of this window.

procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle: THandle;
  WinRect: TRect;
begin
  MyHandle:=FindWindow(nil, 'Delphi Help');
  GetWindowRect(MyHandle, WinRect);
  MoveWindow(MyHandle, WinRect.Left, WinRect.Top, 300, 300, True);
end;