以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动启动程序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109765)
--  作者：裴保民
--  发布时间：2017/11/18 21:54:00
--  自动启动程序
怎样设置启动电脑后自动运行程序呢？
--  作者：cd_tdh
--  发布时间：2017/11/18 22:47:00
--  

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=73350

 
--  作者：裴保民
--  发布时间：2017/11/19 21:20:00
--  
按操作无法自动启动程序
[此贴子已经被作者于2017/11/19 21:20:44编辑过]
--  作者：有点甜
--  发布时间：2017/11/19 23:04:00
--  
以下是引用裴保民在2017/11/19 21:20:00的发言：
按操作无法自动启动程序
[此贴子已经被作者于2017/11/19 21:20:44编辑过]

 

这种问题，百度吧。

 

https://www.baidu.com/baidu?wd=%E8%87%AA%E5%90%AF%E5%8A%A8

 

你也可以在AfterOpenProject写代码，如

 

Dim starupPath = ApplicationPath & "\\abc.exe"

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

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