专家坐堂-老师，下面的语句写不到win10的启动项，是什么原因呢？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老师，下面的语句写不到win10的启动项，是什么原因呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195875)

--  作者：xxfoxtable
--  发布时间：2025/3/17 9:39:00
--  老师，下面的语句写不到win10的启动项，是什么原因呢？

Dim starupPath = ProjectPath & "自动备份管理系统.exe"
MessageBox.Show(starupPath)
Dim loca = Microsoft.Win32.Registry.LocalMachine
Dim run = loca.CreateSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run")
\'run.SetValue("自动备份管理系统", False) \'取消开机运行
run.SetValue("自动备份管理系统", starupPath) \'设置开机运行
loca.Close()

--  作者：有点蓝
--  发布时间：2025/3/17 10:13:00
--
参考：http://www.foxtable.com/webhelp/topics/2051.htm

运行代码的程序要设置为“以管理员身份运行”

Dim starupPath = ApplicationPath  & "自动备份管理系统.exe" http://www.foxtable.com/webhelp/topics/1341.htm
Registry.SetValue("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Run","自动备份管理系统",starupPath)

--  作者：xxfoxtable
--  发布时间：2025/3/17 12:45:00
--
我的路径是E:\\开发\\自动备份\\自动备份系统\\Publish\\自动备份管理系统.exe

ApplicationPath  & "自动备份管理系统.exe" 生成的目录是E:\\开发\\自动备份\\自动备份系统\\Publish\\project\\自动备份管理系统.exe

这怎么解决？

--  作者：有点蓝
--  发布时间：2025/3/17 13:15:00
--
【ApplicationPath  & "自动备份管理系统.exe"】绝对不可能是Publish\\project\\里的路径

--  作者：xxfoxtable
--  发布时间：2025/3/17 13:43:00
--

此主题相关图片如下：1.png

此主题相关图片如下：2.png

真的是这样

--  作者：有点蓝
--  发布时间：2025/3/17 13:47:00
--
请认真仔细逐个字符核对我给的代码和你自己的代码

--  作者：xxfoxtable
--  发布时间：2025/3/17 15:39:00
--
老师，删除注册表这个记录，怎么写代码？

--  作者：有点蓝
--  发布时间：2025/3/17 15:57:00
--
设置为空值

Registry.SetValue("HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Run","自动备份管理系统","")