老师看了这个帖子,
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73350&replyID=&skin=1
我设置了,代码放在afterOpenProject,开机没有自动启动哪儿有问题?
Dim starupPath = ProjectPath & "集团OA系统.exe"
Dim loca = Microsoft.Win32.Registry.LocalMachine
Dim run = loca.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run")
'run.SetValue("集团OA系统", False) '取消开机运行
run.SetValue("集团OA系统", starupPath) '设置开机运行
loca.Close()