Конференция "Начинающим" » Размер чужого окна
 
  • Zero (18.03.17 12:59) [0]
    Как изменить только ширину чужого окна?
  • Игорь Шевченко © (18.03.17 16:50) [1]
    SetWindowPos, MoveWindow
  • Dimka Maslov © (19.03.17 16:22) [2]
    Получить длину и ширину, задать размеры из старой длины и новой ширины. Это же очевидно.
  • lima200 (01.04.17 02:46) [3]
    вот рабочий пример

    посадите код на кнопку, запустите calc.exe (русский - если нет, изменить NameApp (с блокнотом не прокатило, может там юникод? :( )), кликните кнопу - форма калька изменится.

    var wnd:HWND;
      caption,NameApp:string;
      TheChildHandle:HWND;
      r: TRect;
      RectW, RectH: integer;
    begin
      NameApp:='Калькулятор';
      wnd:=FindWindow(nil, pchar(NameApp));
      if wnd<>0
      then begin
       GetWindowRect(wnd, R);
       RectW := R.Right - R.Left+50;
       RectH := R.Bottom - R.Top+50;
       SetWindowPos(Wnd, HWND_TOP, 1, 1, 1, 1, SWP_NOSENDCHANGING);
       SetWindowPos(Wnd, HWND_TOP, R.Left, R.Top, RectW, RectH, SWP_NOSENDCHANGING)
      end
      else begin
       showmessage('Не вижу окна с именем: '+NameApp);
      end;

 
Конференция "Начинающим" » Размер чужого окна
Есть новые Нет новых   [118232   +37][b:0][p:0.001]