Foxtable(狐表)用户栏目专家坐堂 → 自动启动程序


  共有1677人关注过本帖树形打印复制链接

主题:自动启动程序

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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()


 回到顶部