Как сделать окно поверх всех окон Винды?

[kreator]

Собственно, сабж. Естественно, нужно программно.

[PavelNK]

Если память не изменяет, то SetWindowPos

[Yufil]

В последних версиях винды, похоже, и это не работает.

По крайней мере, старый менеджер компиляции cmp60 сейчас не вылазит наверх , стар стал, наверное...

Можно попробовать просто

0{Prop:Active} = True

Или

SetTarget(,1)
0{Prop:Active} = True
SetTarget

[Дед Пахом]

У меня вот такая конструкция работает:

Код: Выделить всё

Routine::BringToTop ROUTINE
  DATA
  CODE
  IF gTHD:FrameRef{PROP:Iconize} = TRUE
    gTHD:FrameRef{PROP:Iconize} = FALSE
    LOOP 10 TIMES
      IF SetForegroundWindow(gTHD:FrameRef{PROP:Handle}) = TRUE
        BREAK
      END
    END
  END
  
  IF Window{PROP:Active} <> TRUE
    Window{PROP:Active} = TRUE
  END

gTHD:FrameRef - это APPLICATION
Window - это MDI child window

[kreator]

Спасибо, ДП. Приложение и окно поднимаются. А вот вроде как есть возможность сделать окно, которое всегда будет висеть поверх других приложений, типа без возможности переключиться на другое приложение. Или я что-то не так понимаю?

[Yufil]

А какая Windows? У меня до какого-то момента было всё OK, а потом облом-с, правда, юзал SetWindowPos
Возможно, это для 64-битных актуально.

Например,
http://www.dxsdata.com/2013/03/c-bring- ... vista-7-8/
https://groups.google.com/forum/#!topic ... Hk7IkAAf9s

и много других... Сейчас пару приложений пустил (тот же cmp60) под win7/64 - да, не работает
Сейчас реализовал по-другому, но осадок остался

[kreator]

А какая Windows?

Win7-64. Повторил код ДП один в один. В широкую эксплуатацию не скоро пустим. Пока идёт сбор требований заказчика.