Это мой код:
Dim exePath As String = Application.ExecutablePath()
Dim key As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Store", True)
key.DeleteValue(exePath)
Но я не знаю, почему приложение не удаляет этот ключ.
Пример: он находит ключ, но не удаляет этот ключ
My.Computer.Registry.CurrentUser.DeleteSubKey("Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Compatibility Assistant\Store")
- person zaggler   schedule 03.02.2018