Change Registries

I am in the middle of coding a program that changes the name of the Recycle Bin, here is the code I have so far.

VB Code:

Private Sub Command1_Click()
On Error Resume Next
Dim REGIS As IWshShell_Class
Set regis = New IWshShell_Class
regis.RegWrite "HKCU\software\microsoft\windows\currentversion\explorer\clsid" _ 
& "\{645FF040-5081-101B-9F08-00AA002F954E}\(Default)", Text1.Text, "REG_SZ"
End Sub

The problem is it doesn't change "(Default)" it makes a new one. How should I fix it?

Thanks,
Sir Loin

Why would you want to do that?

Because it's just a silly program I want to code. People ask me how to change its name all the time, so I want to code a program that does it form them.


-Sir Loin

In that case take a look at this tip from allapi ... :wave:

Thanks! :)

That's pretty tough, isn't there any other way to edit the registry?


Thanks,
-Sir Loin

Quote:

---

Originally Posted by Sir Loin

That's pretty tough, isn't there any other way to edit the registry?


Thanks,
-Sir Loin

---

Other than the API method and yours? I don't think there is.

The API is the best and most flexible though but can be complicated to use :)

EDIT: I have attatched a file I found useful, I did not write this I downloaded it from somewhere but no author information was included....

Cheers,

RyanJ

Cool, thanks.
I was thinking, for my way i should add a .regdelete (Default), then a reg write, but I don't think it would work... :cry:

-Sir Loin

Quote:

---

Originally Posted by Sir Loin

That's pretty tough, isn't there any other way to edit the registry?

Thanks,
-Sir Loin

---

What's so though? Copy and paste ready to go small sample? Common ... ;)

I guess so, but I want to use a textbox to get the name of the Recycle Bin, the sample uses an inputbox. I tried editing it, but to no avail. Here is the code, any help would be very much appreciated.

VB Code:

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
 
Declare Function ExitWindowsEx Lib "user32" (ByVal _
uFlags As Long, ByVal dwReserved As Long) As Long
 
Public Const HKEY_CLASSES_ROOT = &H80000000
Declare Function RegCreateKey Lib "advapi32.dll" _
Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal _
lpSubKey As String, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal Hkey As Long) As Long
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
 
Public Const REG_SZ = 1
Public Const REG_DWORD = 4   
 
Public Sub savestring(Hkey As Long, strPath As _
String, strValue As String, strdata As String)
Dim keyhand As Long
Dim r As Long
r = RegCreateKey(Hkey, strPath, keyhand)
r = RegSetValueEx(keyhand, strValue, 0, _
REG_SZ, ByVal strdata, Len(strdata))
r = RegCloseKey(keyhand)
End Sub
 
Form Code
 
On the form put 1 command button and add the following code to the click event:
 
Private Sub Command1_Click() 
'prompts for new name
 
strString$ = InputBox("Please type in a string to save to the Registry.", "Recycle Bin") 
If strString$ = Empty Then 
    'string is empty or cancel is pressed
    MsgBox "Empty String", vbCritical, "Error"
    Exit Sub
End If
 
'API call to store new name
Call savestring(HKEY_CLASSES_ROOT, _
"CLSID\{645FF040-5081-101B-9F08-00AA002F954E}", _
(pre), strString$)
 
MsgBox "Reset your PC", , "Changes are made"
'resets your PC
 
t& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub

Thanks,
-Sir Loin

The API approach is too much code to do something so simple. Sir Loin you were on the right trach using VBScript. It's shorter code and gets the job done. Heres the link to my code. No download is nessesary. ;)

http://www.planet-source-code.com/vb...55910&lngWId=1

For real? I was doing something right for a change!? Wow..you made my day... :)

-Sir Loin

Anytime man. That's what I'm here for. :p

That's a great example for reading/writing, but how do I edit a registry? Like "HKLM\software\microsoft\windows nt\current version\blah\something\(Default)"



Thanks,
Sir Loin