|
-
Sep 19th, 2001, 12:26 PM
#1
Thread Starter
New Member
Disable Start menu and My Computer in win9x? HELP PLZ
Anyone know how to disable Start Menu and My Computer, so that Users can't have access, or unable to click on them?
thnx
-
Sep 19th, 2001, 02:52 PM
#2
-
Sep 20th, 2001, 12:54 AM
#3
Try This
'in a form
Private Sub Command1_Click()
Dim shelltraywnd As Long, button As Long
shelltraywnd = FindWindow("shell_traywnd", vbNullString)
button = FindWindowEx(shelltraywnd, 0&, "button", vbNullString)
Call EnableWindow(button, 0)
End Sub
Private Sub Command2_Click()
Dim shelltraywnd As Long, button As Long
shelltraywnd = FindWindow("shell_traywnd", vbNullString)
button = FindWindowEx(shelltraywnd, 0&, "button", vbNullString)
Call EnableWindow(button, 1)
End Sub
'in a module
Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public 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
-
Sep 21st, 2001, 10:17 AM
#4
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|