禁用Windows的开始按钮

禁用Windows的开始按钮
'
' Paste this into a Code Mode (BAS)
'
Option Explicit
'
private Declare Function FindWindowEx Lib "user32" _
        Alias "FindWindowExA" ( byval hWnd1 as Long, byval hWnd2 as Long, _
        byval lpsz1 as string , byval lpsz2 as string ) as Long
'
private Declare Function EnableWindow Lib "user32" ( byval hwnd as Long, _
        byval fEnable as Long) as Long

public Sub EnableStartMenuButton( byval bEnable as Boolean)
'
' Don't forget to re-enable it !
'
    Dim lHwnd as Long
'
    lHwnd = FindWindowEx(0&, 0&, "Shell_TrayWnd", vbNullString)
    lHwnd = FindWindowEx(lHwnd, 0&, "Button", vbNullString)
    Call EnableWindow(lHwnd, bEnable)
'
End Sub
'
'

转载于:https://www.cnblogs.com/dsclub/archive/2004/06/21/17413.html