[Проблема] Программное изменение заголовка чужого окна по хендлу процесс(EnumWindows)

[Человек_Борща]

всем привет!

Суть проблемы:
При помощи:

EnumThreadWindows(PI.dwThreadId, @MiniWindowProc, 0); //манипулируем с окном...

минимизирую стандартный калькулятор, зупущенный через CreateProcess.
И вот что наблюдаю:
Вооружившись отладчиком просмотрел процесс, 1 раз пробегаем по @MiniWindowProc:

function MiniWindowProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;
begin
  Result := True;
  if GetWindowLong(hwnd, GWL_STYLE) and WS_CAPTION = WS_CAPTION then
  begin
    ShowWindow(hwnd, SW_SHOWMINIMIZED);
  end;
end;

Минимизируется калькулятор просто прекрасно. Вроде бы всё ок! Но с какого-то перепуга, пробегаем по той же @MiniWindowProc второй раз! Но т.к. у нас нет окна на рабочем столе(потому что оно свёрнуто), сворачивает ещё откулда-то взявшееся окно с названием: CalcMsgPumpWnd(Оказалось это класс окна калькулятора)

Итого на панели задач у нас 1 калькулятор, и 2 его хз что, но имя тоже калькулятор.

Собственно почему @MiniWindowProc выполняется 2-3 раза вместо 1го?
И как от этого вылечиться?

P.S. Нет, все таки ставить пробелы в коде через строку это видимо очень новая и забавная фича форума.

[Пепел Феникса]

у него есть еще одно какое то скрытое окно.
можно попробывать проверять на наличие расширенного стиля WS_EX_APPWINDOW
именно такое окно обычно главное в программе(но не всегда вродь)

[Человек_Борща]

Если так:

function MiniWindowProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;
begin
  Result := True;
  if GetWindowLong(hwnd, GWL_STYLE) and WS_CAPTION = WS_CAPTION or WS_EX_APPWINDOW then
  begin
    ShowWindow(hwnd, SW_SHOWMINIMIZED);
  end;
end;

то сворачивание не работает. Как правильно?

[Пепел Феникса]

я же сказал, расширенные стили(GWL_EXSTYLE)

GetWindowLong(hwnd, GWL_STYLE) and WS_CAPTION = WS_CAPTION or WS_EX_APPWINDOW

такое в принципе работать не должно.

[Человек_Борща]

хм, тогда ShowWindow(,SW_MINIMIZED);
не работает... ????

[Пепел Феникса]

как ты проверял на расширенный стиль?
показывай.
(если тебе надо и простой стиль WS_CAPTION проверять, и расширенный WS_EX_APPWINDOW то это две проверки)

[Человек_Борща]

Как сделать вторую проверку? (Не понимаю)
Вот что есть:

function MiniWindowProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;
begin
  Result := True;
  if GetWindowLong(hwnd, GWL_EXSTYLE) and WS_CAPTION = WS_CAPTION or WS_EX_APPWINDOW then
  begin
    ShowWindow(hwnd, SW_SHOWMINIMIZED);
  end;
end;

и всеравно не работает(не сворачивает).

[Пепел Феникса]

GetWindowLong(hwnd, GWL_STYLE) and WS_CAPTION = WS_CAPTION

GetWindowLong(hwnd, GWL_EXSTYLE) and WS_EX_APPWINDOW= WS_EX_APPWINDOW

обьеденим через И
и получим:

(GetWindowLong(hwnd, GWL_STYLE) and WS_CAPTION=WS_CAPTION)and(GetWindowLong(hwnd, GWL_EXSTYLE) and WS_EX_APPWINDOW=WS_EX_APPWINDOW)

примерно так

[Человек_Борща]

Благодарен, теперь и сворачивает и непонятных окон нет.

Ставлю +