Title: How to change the height and width of a foreign window
procedure ChangeSize(Handle: Hwnd; dHeight, dWidth: Integer);
var
P: TRect;
DlgWidth: integer;
DlgHeight: integer;
begin
GetWindowRect(Handle, P);
DlgWidth := P.Right - P.Left;
DlgHeight := P.Bottom - P.Top;
MoveWindow(Handle, P.Left, P.Top, DlgWidth + dHeight, DlgHeight + dWidth, True);
end;