كيف امسح مفتاح ريجستري؟

السلام عليكم

لحذف داله من الرجسترى عليك إستخدام الدله التاليه:

LONG RegDeleteKey(
  HKEY hKey,
  LPCTSTR lpSubKey
);

انا لست خبير VB ولكن اظن ان الامر بسيط إن شاء الله.

hKey هى احد هذه الدوال:

HKEY_CLASSES_ROOT
HKEY_CURRENT_CONFIG
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS

و lpSubKey فى هذه الحاله تكون :

\SOFTWARE\CLASSES\CLSID\{78A42AD8-2CFC-49D5-82C6-248B756F32EA}

وهى عباره عن string لمعرفة المزيد عن دوال الرجسترى عليك بزيارة موقع msdn.com.

وهذا هو العنوان:

http://msdn.microsoft.com/library/default....egdeletekey.asp

بالتوفيق

والسلام

'Where to place code: Moduleهذا في المديول

'Notes: Set strKey to the Registry Key you want to deleteأدخل المفتاح المراد حذفه

'

'=================================================

Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

Public Const HKEY_CLASSES_ROOT = &H80000000

Public Const HKEY_CURRENT_CONFIG = &H80000005

Public Const HKEY_CURRENT_USER = &H80000001

Public Const HKEY_DYN_DATA = &H80000006

Public Const HKEY_LOCAL_MACHINE = &H80000002

Public Const HKEY_USERS = &H80000003

Private lngTopKey As Long

Private strSubKey As String

Public Sub DeleteRegKey(strKey As String)

ParseKey strKey

RegDeleteKey lngTopKey, strSubKey

End Sub

Private Sub ParseKey(strKey As String)

Dim intPos As Integer

intPos = InStr(strKey, "\")

Select Case Left(strKey, intPos - 1)

Case "HKEY_CLASSES_ROOT"

lngTopKey = HKEY_CLASSES_ROOT

Case "HKEY_CURRENT_USER"

lngTopKey = HKEY_CURRENT_USER

Case "HKEY_LOCAL_MACHINE"

lngTopKey = HKEY_LOCAL_MACHINE

Case "HKEY_USERS"

lngTopKey = HKEY_USERS

Case "HKEY_CURRENT_CONFIG"

lngTopKey = HKEY_CURRENT_CONFIG

Case "HKEY_DYN_DATA"

lngTopKey = HKEY_DYN_DATA

End Select

strSubKey = Right(strKey, Len(strKey) - intPos)

End Sub

يا شباب عايزين نسهلها لا ان نعقدها

احمد غريب( اعلم انك تحب المزاح) اين ساكتب هذا الكود بداخل الفيجوال بيسك هل تريد الرجل ان يطفش ام ان يتعلم سى

awadiah الكود اللى انت كاتبه ده ماراثون

إلى صاحب السؤال اولاً يجب عليك إضافة REFERNCE إلى مكتبة ال WSH او تكتب هذا الكود

'DECLARE WSH OBJECT
Dim WSH As Object
' INSIAIATE THE OBJECT
Set WSH = CreateObject("Wscript.Shell")

لحذف قيمة المفتاح

WSH.RegDelete"HKEY_LOCAL_MACHINE\SOFTWARE\CLASSES\CLSID\{78A42AD8-2CFC-49D5-82C6-248B756F32EA"

يا شباب ارجو ان تقبلوا المزاح