Takže tady jé kód nefunguje ani zápis ani čtení je to stejné: Zápis:
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree, Security.AccessControl.RegistryRights.FullControl).SetValue("Program", Application.ExecutablePath & " /hide")
čtení:
dim Verze as string = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Můj program\Info", Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree, Security.AccessControl.RegistryRights.FullControl).GetValue("ProductVersion", "")
|