Изменить параметры чужого окна

[phphel]

Подскажите, как можно изменить размеры чужого окна если у него стоят ограничения.

Тоесть, есть окно, предположим написанное на дельфи, в нем к примеру стоит

form1.Constraints.MinHeight:=500;

Как сделать высоту менее 500 px?
MoveWindow здесь не помогает...

[Willer55]

Точно не помню как. Могу подсказать в какую сторону посмотреть. Есть функция у WinApi для получение ссылки на окно, по имени типа(вроде бы). У Красного в книге "Практика в OpenGL" на первых страницах написано как это сделать.

[phphel]

И?Если ты про это:

findwindow(nil,pchar('Caption'));

То это я тоже знаю, вопрос в другом.

[EUGY]

Ну если у чужого окна...
Тогда видимо нужно перехватывать оконную процедуру и править MINMAXINFO в сообщении WM_GETMINMAXINFO.
Нужен либо хук на сообщения либо инжектировать длл в процесс, которому принадлежит окно и сабклассить процедуру окна.

[=master=]

http://msdn.microsoft.com/ru-RU/libr...(v=vs.85).aspx
подойдет?

[EUGY]

Мдя, прозевал SWP_NOSENDCHANGING

[phphel]

SetWindowPos не помогает.

EUGY, спс, попробую что - нить нагуглить..

[phphel]

http://www.delphikingdom.com/asp/ans...IDAnswer=48481
вот тут аналогичное решение..но чет разобраться как прикрутить код не могу..

[phphel]

Собственно, решается все следующим кодом:

var
   wnd:HWND;
   caption,NameApp:string;
   TheChildHandle:HWND;
   r: TRect;
   RectW, RectH: integer;
begin
   NameApp:='Window';
   wnd:=FindWindow(nil, pchar(NameApp));
   if wnd<>0
   then begin
    GetWindowRect(wnd, R);
    RectW := R.Right - R.Left;
    RectH := R.Bottom - R.Top;

    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('Not find window '+NameApp);
   end;

Код "сбивает" параметры MINMAX указанного окна, после чего можно спокойно изменять размеры.

[=master=]

А кто-то утверждал что

SetWindowPos не помогает.