Как зафиксировать форму на рабочем столе?

[Jenizix]

в Миранде есть ф-ия pin to desktop т.е. контакт лист прилепляется к рабочему столу, не сворачиваеться по win+d, и не перекрывает другие окна!

А как мне сделать такое с моей формой???

чтобы не перекрывало другие окна я сделал так:

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

SetWindowPos Me.hwnd, 1, 100, 100, 200, 200, SWP_SHOWWINDOW Or SWP_NOACTIVATE Or SWP_NOMOVE

но вот как сделать чтобы окно не сворачивалось по свернуть все окна и т.п... Отслеживать _resize не помогает... и таймер тоже не помогает...

З.Ы. тут http://bbs.vbstreets.ru/viewtopic.php?t=9320 я уже был =)))) там вроде тоже решения так и не нашли....

Хелп...

[GSerg]

Поставь borderstyle 3, 4 или 5.

[Jenizix]

у формы

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

BorderStyle=0

, хотя тоже работает с этим кодом отлично!, но есть небольшая проблема...

Код:

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

Option Explicit

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 Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_ACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2

Private Sub Form_Load()

Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_ACTIVATE Or SWP_SHOWWINDOW Or SWP_NOSIZE Or SWP_NOMOVE)


End Sub

Private Sub Timer1_Timer()
If Me.WindowState = 1 Then
Me.WindowState = 0
End If
Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_ACTIVATE Or SWP_SHOWWINDOW Or SWP_NOSIZE Or SWP_NOMOVE)
End Sub


так не сворачивается!, ура!!!... НО! мне нужно чтоб окно было не поверх всех а под всеми!!!

делаю так:

вместо

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

Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_ACTIVATE Or SWP_SHOWWINDOW Or SWP_NOSIZE Or SWP_NOMOVE)

пишу

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

Call SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOSIZE Or SWP_NOMOVE)

и в таймере тоже... но оно сворачиваеться!!!

если не трудно дайте код чтобы окно было под всеми и не сворачивалось, а то я чето наверное не понимаю....

[kif]

У формы
borderstyle=1
moveable=false

[CodeName33]

Нужно найти десктопное окно explorer'а (Progman вроде зовётся по заголовку) и посадить своё окно внуть (апишной функцией SetParent). А border - ToolWindow вроде.

[Jenizix]

Нужно найти десктопное окно explorer'а (Progman вроде зовётся по заголовку) и посадить своё окно внуть (апишной функцией SetParent). А border - ToolWindow вроде.

Дай примерчик, а то я с АПИ не очень....

[Jenizix]

Все Спасибо!!! Разобрался!!!

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

Dim dw As Long
dw = FindWindow("progman", vbNullString)
SetParent Me.hWnd, dw


Оказалось легко!!!

Тема закрыта, всем спасибо!!!