Registry Tweaks

[Gimlin]

I want to make a program that will alow users to use the computer but only from the desktop so... basicly I want them bound to the desktop, and I will put Short-cuts to programs they can use on that desktop.

I know its all done in Registry, mostly.

Everything I have a beside I can do, everything I have a beside I cant.

A) I want to disable Desktop Right Click
B) Disable Start Button
C) Disable Right Click Button
D) Disable CTRL-ALT-DEL
E) Disable My Computer
F) Disable My Documents
G) Disable Recycling bin on desktop

I also want to.

H) Keylog
I) Log Every EXE opened ( I used to know, but I forgot )

If you have the answers please post, and if you have any other Ideas on how I can prevent people from explorering the computer.

[Static]

Install XP...

[Gimlin]

Going to at christmas, Remeber I am a student and I am not made of paper, ER money

[DaoK]

with xp some function will not work like the ctrl+alt+del.

[Gimlin]

Then how will those third party programs work on XP. Our school has a system called Fortess which does the above, will it still work on XP?

[MidgetsBro]

Use TweakUI, the power tool from Microsoft, to remove the Recycle Bin from the desktop. I do that on my machine because I don't like the recycle bin, it's not necessary. If I deleted it, then oh well. I think you can disable other icons also, but I'll check to make sure.

[MidgetsBro]

I guess you can't remove the My Computer Icon, but you can remove the Network Neighborhood. I forgot to post a link to tweakui. You can get it at: http://www.microsoft.com/ntworkstati.../NTTweakUI.asp

To remove My Documents, you can just right click on it and choose Remove From Desktop.

[DiGiTaIErRoR]

I don't know about hiding my computer....

But...

You can hide all the drives in it.

path:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

key(DWORD):
NoDrives

value:
67108863

You can gets lots of help here:
http://registry.winguides.com/

[Gimlin]

Fortress at school does this:

A) you cant CTRL-ALT-DEL or ALT-TAB
B) you cant right click on desktop or start button
C) when you double click on my computer it does nothing
D) my documents is deleted, Recycle bin is gone.
E) you cant edit AUTOEXEC.bat
F) has a feature where you input a password to enable all of the above.

It's biggest flaw is not by design its because it is being used in internet lab, and therefore internet explorer is needed. And with IE you can view everything you want.

What they should do is program a VB web browers that cant view the Drives.

[DiGiTaIErRoR]

I'd like to see um make a program like that work on win2k when you have admin rights.

Wouldn't happen though.

[Gimlin]

I have Windows 98 and I am to poor to upgrade

[Luke K]

Okay this code will now do everything you wish this program to do.

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
 
Private Enum RKEYS_
  HKEY_CLASSES_ROOT = &H80000000
  HKEY_CURRENT_USER = &H80000001
  HKEY_LOCAL_MACHINE = &H80000002
  HKEY_USERS = &H80000003
End Enum
 
Private Sub Form_Load()
Const REG_IDPATH As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace"
Const REG_TSPATH As String = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
Const REG_RCLICKPATH As String = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
Const DI_CLSID_MYDOCUMENTS As String = "{450D8FBA-AD25-11D0-98A8-0800361B1103}"
Const DI_CLSID_RECYCLEBIN As String = "{645FF040-5081-101B-9F08-00AA002F954E}"
Const SW_SHOW As Long = &H1: Const SW_HIDE As Long = &H0
Dim lRegOp As Long
Dim lTskHw As Long
 
lRegOp = SetDWORD(HKEY_LOCAL_MACHINE, REG_RCLICKPATH, "NoViewContextMenu", &H1)     'Disable right click on desktop, may have to restart explorer
lRegOp = SetDWORD(HKEY_CURRENT_USER, REG_TSPATH, "DisableTaskMgr", &H1)             'Restrict CTRL+ALT+DEL, User specific
lRegOp = RegDeleteKey(HKEY_LOCAL_MACHINE, REG_IDPATH & "\" & DI_CLSID_MYDOCUMENTS)  'Disable My Documents
lRegOp = RegDeleteKey(HKEY_LOCAL_MACHINE, REG_IDPATH & "\" & DI_CLSID_RECYCLEBIN)   'Disable Recycle Bin
lTskHw = FindWindow("Shell_TrayWnd", "")                                            'Get taskbar handle
Select Case IsWindowVisible(lTskHw&)
    Case 1: Call ShowWindow(lTskHw&, SW_HIDE)                                       'Visible, hide it
    Case 0: Call ShowWindow(lTskHw&, SW_SHOW)                                       'Invisible, show it
End Select
End Sub
 
Private Function SetDWORD(RSECT_ As RKEYS_, stringP As String, stringV As String, lngData As Long) As Long
Const REG_DWORD As Long = &H4
Dim lRet As Long
Dim lKeyV As Long
 
lRet = RegCreateKey(RSECT_, stringP$, lKeyV)
lRet = RegSetValueEx(lKeyV, stringV, 0, REG_DWORD, lngData, REG_DWORD)
lRet = RegCloseKey(lKeyV&)
End Function