Thanks for the nice comments
anything for my fellow CNC friends!
Here is the code...this will do what you want.
You can turn on/off the "taskbar" and "Desktop icons", if you turn off the "Desktop Icons" it will disable the "right click on desktop" as well.
The only other thing I can think of is to "disable short cut keys". You could disable short cut keys and leave 1 combo open so you have acess to regain control.
You can run this code on" boot up" as a "VBS" or/and in Mach on a button or/and from a Macro even, just change the: ShowTask = True and ShowIcons= True:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private Const GW_CHILD = 5
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Dim lngHandle As Long
Dim lngStartButton As Long
lngHandle = FindWindow("Shell_TrayWnd", "")
Dim hWnd_DesktopIcons As Long
hWnd_DesktopIcons = GetWindow( FindWindow("Progman", "Program Manager"), GW_CHILD)
lngHandle = FindWindow("Shell_TrayWnd", "")
'////Show Taskbar////////
ShowTask = True
'////Show/hide Icons////
ShowIcons= True
If ShowTask Then
ShowWindow lngHandle, 5
Else
ShowWindow lngHandle, 0
End If
If ShowIcons Then
ShowWindow hWnd_DesktopIcons, SW_SHOW
Else
ShowWindow hWnd_DesktopIcons, SW_HIDE
End If
Jason Blake
