Devil World

آیکون های دسکتاپ را چگونه محو کنیم

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, 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 

Private Sub Cmd_HideAppearance_Click()
    subkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System"
    rtn = InStr(subkey, "\")
    If Left(subkey, rtn - 1) = "HKEY_CURRENT_USER" Then MainKeyHandle = &H80000001
    subkey = Right(subkey, Len(subkey) - rtn)
    entry = "NoDesktop"
    If MainKeyHandle Then
        rtn = RegOpenKeyEx(MainKeyHandle, subkey, 0, Key_Write, hKey)
        If rtn = error_success Then
            rtn = RegSetValueEx(hKey, entry, 0, REG_DWORD, 1, 4)
            rtn = RegCloseKey(hKey)
        End If
    End If
End Sub

Private Sub Cmd_ShowIcon_Click()
    subkey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
    rtn = InStr(subkey, "\")
    If Left(subkey, rtn - 1) = "HKEY_CURRENT_USER" Then MainKeyHandle = &H80000001
    subkey = Right(sunkey, Len(subkey) - rtn)
    entry = "NoDesktop"
    If MainKeyHandle Then
        rtn = RegOpenKeyEx(MainKeyHandle, subkey, 0, Key_Write, hKey)
        If rtn = error_success Then
            rtn = RegSetValueEx(hKey, entry, 0, REG_DWORD, 0, 4)
            rtn = RegCloseKey(hKey)
        End If
    End If
End Sub

Private Sub Exit_Click()
    End
End Sub

اگه نظر بدین ممنون می شوم