Окно поверх всех.

[SurvivalXXI]

Народ помогите как сделать окно поверх всех, без перемещения формы и тому подобното. пробовал через SetWindowPos, но там обязательно нужно задать размеры и положение окна, кажется.
Ещё желательно, чтобы поменьше ресурсов ело, а то прога в фоновом режиме будет работать, и хорошо бы, что бы даже поверх окон со статусом поверх всех(например диспетчер задач) была.

[vvs_adm]

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE
SWP_NOSIZE - игнорирует заданные размеры (оставляет прежние
SWP_NOMOVE - игнорирует заданное положение (оставляет прежнее)

А вообще-то яндекс по фразе "окно поверх всех" тебе столько выдаст, что ...

[SurvivalXXI]

Спасибо.

[SurvivalXXI]

Появилась одна проблема. Эта функция ставит окно поверх Активного,
а мне нужно поверх всех.

[BV]

А может то активное окно тоже вызывает эту функцию?

[SurvivalXXI]

Нет, точно, сдесь что то другое

[Amed]

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

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Sub Form_Activate()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Set the window position to topmost
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub