رجیستری

[saeed 444]

اساتید محترم اگر مقدور باشه سورسی میخوام که این آیتم رو در ریجستری حذف کنه
HKEY_CLASSES_ROOT/ lnkfile
NeverShowExt/

[b.mahsa]

این کد رو تست کنید

Dim DeleteKeyValue As Long, hKey As Long
DeleteKeyValue = RegOpenKeyEx(RegKeyRoot, RegKeyName, 0, KEY_ALL_ACCESS, hKey)
DeleteKeyValue = RegDeleteValue(hKey, KeyValueName

[saeed 444]

از توجه شما ممنونم ولی جواب نداد

[Netsky]

سلام .
با اين كد ميتونيد اينكار رو انجام بديد .



Dim Reg As Microsoft.Win32.RegistryKey
Reg = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("lnkfile", True)
Reg.DeleteValue("NeverShowExt")

موفق باشيد .........

[b.mahsa]

این رو تست کنید


Dim rk As Microsoft.Win32.RegistryKey

rk = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)

If Me.StartUpCheckBox.Checked = True Then

rk.SetValue("ScreenShot", Application.ExecutablePath)

Else

rk.DeleteValue("ScreenShot")

End If

[saeed 444]

سلام .
با اين كد ميتونيد اينكار رو انجام بديد .



Dim Reg As Microsoft.Win32.RegistryKey
Reg = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("lnkfile", True)
Reg.DeleteValue("NeverShowExt")

موفق باشيد .........

از محبت شما سپاسگزارم اگر امکان داره برای درج مجدد آیتم حذف شده راهنمایی بفرمائید
کد شما کاملا صحیح بود ممنونم:تشویق:

[Netsky]

سلام دوست عزيز .
واسه ساخت مجدد اين مقدار ميتونيد از كد زير استفاده كنيد :


Dim Reg As Microsoft.Win32.RegistryKey
Reg = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("lnkfile", True)
Reg.SetValue("NeverShowExt", "")
اگه بازم سوالي بود ، در خدمتم .....
موفق باشيد .........

[saeed 444]

سلام دوست عزيز .
واسه ساخت مجدد اين مقدار ميتونيد از كد زير استفاده كنيد :


Dim Reg As Microsoft.Win32.RegistryKey
Reg = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("lnkfile", True)
Reg.SetValue("NeverShowExt", "")
اگه بازم سوالي بود ، در خدمتم .....
موفق باشيد .........

از اطلاعات مفیدتان ممنونم .:تشویق:
فقط یک موردی که هست اگر ایتم مورد نظر موجود نباشه یعنی حذف کرده باشیم برنامه با اجرای مجدد کد اول ارور میده که طبیعیه چون آیتمم موجود نیست میخواستم زحت دستور شرط اجرا رو هم محبت کنید . باز هم از شما متشکرم.

[Netsky]

بازم سلام .
اينم يه كد واسه اون چيزي كه ميخاستيد :


Dim Reg As Microsoft.Win32.RegistryKey
Reg = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("lnkfile", True)
If Reg.GetValue("NeverShowExt", "Not Found") = "Not Found" Then
MessageBox.Show("Not Found")
Else
MessageBox.Show("Found")
End If
اگه توضيحش رو هم خاستيد بگيد تا واستون بگم .
موفق باشيد ........

[saeed 444]

بازم سلام .
اينم يه كد واسه اون چيزي كه ميخاستيد :


Dim Reg As Microsoft.Win32.RegistryKey
Reg = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("lnkfile", True)
If Reg.GetValue("NeverShowExt", "Not Found") = "Not Found" Then
MessageBox.Show("Not Found")
Else
MessageBox.Show("Found")
End If
اگه توضيحش رو هم خاستيد بگيد تا واستون بگم .
موفق باشيد ........

امیدوارم در تمام مراحل زندگیتان موافق و پیروز باشد :تشویق::تشویق::تشویق:

[Netsky]

خواهش ميكنم .
ولي دوست عزيز طبق قوانين سايت براي تشكر كردن بايد از دكمه تشكر استفاده كنيد .
موفق باشيد ........