
Originariamente inviata da
oregon
Posta anche il codice che modifica il registro per provare
codice:
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", 1, RegistryValueKind.DWord)
In pratica diventa:
codice:
Private Const HWND_BROADCAST = &HFFFFPrivate Const SMTO_ABORTIFHUNG = &H2
Private Const WM_SETTINGCHANGE = &H1A
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Sub RefreshExplorer()
SendMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
End Sub
Private Sub Button1_Click()
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden", 1, RegistryValueKind.DWord)
RefreshExplorer()
End Sub