如何使窗口钉在桌面

Question

如何使窗口钉在桌面？就是窗口在桌面上，即使他是活动的窗口也不能挡住非活动的窗口，而且按下WIN+D键也不会被最小化掉，如何实现？

Answer 1

Private Sub Form_Load()
    Dim hWndDesk As Long
    hWndDesk = FindWindow("Progman", vbNullString)
    hWndDesk = GetWindow(hWndDesk, GW_CHILD)
    hWndDesk = GetWindow(hWndDesk, GW_CHILD)
    SetParent Me.hWnd, hWndDesk
End Sub

Answer 2

错
这样窗口还是有一定的价值的
比如窗面时钟
他不会因为你按了win+d而隐藏.

Answer 3

屏蔽WIN+D,另外
Private Sub Timer1_Timer()
Form1.BorderStyle = 0
Form1.ZOrder (1)
End Sub
这样如何?

Answer 4

其它窗口是都最小化了，但还是看不到，5楼说的不错，我就是用来做时钟的，
就是按了win+d而隐藏，所以才要钉在窗口的，不过现在我在别的地方找到了答案
，问题解决了，谢谢大家了。6楼说的屏蔽WIN+D可不好哦，WIN+D是很好用的。