主题：有关Registry.GetValue 在不同有windows版本使用

在正版WIN7下不会报错！目前还没有找到解决办法。不知狐友是否也遇此问题？

有安装。

1、用管理员身份运行程序；

2、执行下面的代码试试

Dim starupPath = ProjectPath & "xxx.exe"

Dim loca = Microsoft.Win32.Registry.LocalMachine
Dim run = loca.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run")

'run.SetValue("我的项目", False) '取消开机运行
run.SetValue("我的项目", starupPath) '设置开机运行
loca.Close()

是在管理员身份运行的。

Dim starupPath = ProjectPath & "xxx.exe"

Dim loca = Microsoft.Win32.Registry.LocalMachine
Dim run = loca.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run")

'run.SetValue("我的项目", False) '取消开机运行
run.SetValue("我的项目", starupPath) '设置开机运行
loca.Close()

以上代码是在命令窗口上执行吗

谢谢！！我试试