کار با رجیستری

[.AndRoid.]

سلام دوستان
چندتا آموزش رجیستری پیدا کردم وخوندم اما باز متوجه نشدم ، حتی نفهمیدم چطور میتونم یه فایل کلید رو اضافه یا حذف کنم .
الان ازین دوتا کد چطور میتونم استفاده کنم ؟



Public Function DeleteValue(lPredefinedKey As Long, sKeyName As String, sValueName As String)x
Dim lRetVal As Long
Dim hKey As Long
lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)x
lRetVal = RegDeleteValue(hKey, sValueName)x
RegCloseKey (hKey)x
DeleteValue = lRetVal
End Function



Public Function CreateNewKey(lPredefinedKey As Long, sNewKeyName As String)x
Dim hNewKey As Long
Dim lRetVal As Long
lRetVal = RegCreateKeyEx(lPredefinedKey, sNewKeyName, 0&, vbNullString, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, 0&, hNewKey, lRetVal)x
RegCloseKey (hNewKey)x
CreateNewKey = lRetVal
End Function

[سید حمید حق پرست]

سلام علیکم
برای نوشتن در ریجستری :
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_CURRENT_USER\Software\test\Name", "test", "REG_SZ"
برای حذف :
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegDelete "HKEY_CURRENT_USER\Software\test\"
موفق باشید.

یا علی (ع)

[.AndRoid.]

خیلی خیلی ممنونم ، دستت درد نکنه .
حالا اگه بخوام کل پوشه Software رو پاک کنم چطوریه ؟
من اینو که میزارم ارور میده :


Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegDelete "HKEY_CURRENT_USER\Software\"

[vbhamed]

سلام
شما پوشه Software رو نمي‌تونيد پاك كنيد چون ويندوز همچين اجازه اي به شما نميده، كلي از تنظيمات خود ويندوز داخل اين پوشه هست و پاك كردن اين پوشه يعني خداحافظي با ويندوز

[.AndRoid.]

از آدرس دیگه ای چطور ؟ میشه پوشه رو کلا با محتویاتش پاک کرد ؟ اگه میشه چطوری ؟
ممنونم .

[سید حمید حق پرست]

از آدرس دیگه ای چطور ؟ میشه پوشه رو کلا با محتویاتش پاک کرد ؟ اگه میشه چطوری ؟
ممنونم .
سلام علیکم
سورس مورد نظرتون ضمیمه کردم، فقط روی سیستمتون تست نکنید چون همه تنظیمات سیستم و نرم افزارها میپره
موفق باشید.

یا علی (ع)