主题：注册表写入值没有反应，不知道是怎么回事

我想把发布的程序的可执行文件按照路径放到注册表的run 里面，下面代码没有起作用，不知道是怎么回事，麻烦老师看一下：

参考代码

 

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()

如何判断这个启动项是否存在

参考

 

https://www.cnblogs.com/GT_Andy/archive/2009/05/16/1922082.html

 

https://msdn.microsoft.com/zh-cn/library/k23f0345.aspx

 

https://msdn.microsoft.com/zh-cn/library/microsoft.win32.registryvaluekind.aspx

 

为什么发布后，注册表里面的值在“c:\publish\project\***.exe”,明明我的***.exe文件在“c:\publish”下，不知道是怎么回事，代码用的就是一楼的代码

改成这样即可

 

Dim starupPath = ApplicationPath & "xxx.exe"

 

 

还有个问题，有些计算机注册表可以通过一楼的代码修改，有些单位的计算机运行后，注册表没有把启动文件加进去，是不是权限的问题，在代码中如何解决。

1、你使用【管理员身份】运行exe了没有，需要有电脑管理员权限才能操作注册表的；

 

2、如果只是希望开机运行，你可以直接把快捷方式拷贝到->开机自动启动文件夹，也可以达到同样效果 ；

 

3、你也完全可以在打包制止成exe安装程序的时候，设置注册表的。