Disabling Startmenu

[Anchor Blue]

hi, i would like to know the code for disabling the start menu, thanks

[Aaron Young]

Try the EnableWindow API, ie.

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

private Sub Command1_Click()
static bEnabled as Boolean
Dim lhWnd as Long

lhWnd = FindWindowEx(0&, 0&, "Shell_TrayWnd", vbNullString)
lhWnd = FindWindowEx(lhWnd, 0&, "Button", vbNullString)
Call EnableWindow(lhWnd, bEnabled)
bEnabled = Not bEnabled
End Sub




Aaron Young
Analyst Programmer
adyoung@win.bright.net
aarony@redwingsoftware.com

[Chris Eastwood]

Nice one Aaron - a bit dangerous though, but interesting none the less.

Would you like it posted to the site ?



Chris Eastwood

CodeGuru - the website for developers
http://codeguru.developer.com/vb