主题：狐表编程，能否实现设置开机启动功能

狐表编程，能否实现设置开机启动功能

设置或取消开机启动

 

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

谢，红袍大哥

该代码在何处设置

 

可以写在任意一个地方，比如afterOpenProject就可以

没登录会启动吗？像服务器一般是只开电源，没有输入用户和密码的

 

不会。试试这个

 

http://jingyan.baidu.com/article/59703552fee38f8fc107405c.html

 

学习

 

用这个，实测有效：

在注册表中添加就可以了。在开始--运行中输入regedit，展开HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run。在右边框中新建一个字符串的键，把名字命令为你可添加程序的名字(可以随便取)，把它的键值设置这个程序的完整路径。如"G:\应用程序\360安全卫士\360safe\safemon\360Tray.exe"