vb.net如何让当前程序开机启动？

[qdaijchf]

请高手指点！
当前程序的启动位置不固定,如何让它首次运行后下次就从这个位置开机启动？
我的系统环境是：Windows7和Microsoft Visual Studio 2010

[gxingmin]

写注册表，在下面添加一个字符串键值
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
"你的程序.exe"="你程序路径\\你的程序.exe"

[Justin-Liu]

LS可以，添加到启动里也行，添加到计划任务也行

[wuyq11]

RegistryKey key = Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", true);
key.SetValue(程序的名称, 程序的路径);

[hitlcyu19]

[Quote=引用 3 楼 wuyq11 的回复:]

RegistryKey key = Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", true);
key.SetValue(程序的名称, 程序的路径);
[/Quote]
对呀 这个需要添加注册表的

[qdaijchf]

谢谢各位的热心指点！
通过手工更改注册表，或者手工创建快捷方式放到启动文件夹中，太麻烦了。
我就是想通过第一次运行程序后，以后就自动从这个位置开机启动，也就是说在通过程序中的代码实现添加启动项等方法。
我把人生如梦的代码贴到代码窗口中有错误。从网上也搜寻过类似的代码，但贴上去就有错误。

[myhope88]

就是往注册表中添加啊，不知道你出啥错了呢，是不是没导入相应的命名空间呢

[qdaijchf]

可能是这样，怎样导入命名空间？

[gxingmin]

干嘛要导命名空间，你在程序启动时，获取你的路径
Application.StartPath
按1楼或3楼方式添加到注册表就可以了

[qdaijchf]

把3楼的代码添加进去，就出现代码错误。RegistryKey key 的下面出现曲线以及红空心直线。
请石头给我一个完整的代码。

[qdaijchf]

还有第一句自动加了个括号，变成了这样：RegistryKey(key = Registry.LocalMachine.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run", True))

[gxingmin]

 Dim key As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
      key.SetValue(程序的名称, 程序的路径)

[gxingmin]

key.Close()

[qdaijchf]

第二句我是这样写的：
key.SetValue("Time.exe", System.IO.Directory.GetCurrentDirectory())
或者这样
key.SetValue("Time", System.IO.Directory.GetCurrentDirectory())
打开这册表相应位置已经有了项目，并且里面的路径也是正确的，但是开机还是没启动。以前我用手工添加过，也不能启动。

[qdaijchf]

time.exe当前程序，也是我要开机启动的程序。

[gxingmin]

key.SetValue("Time.exe", Application.StartupPath & "\Time.exe")

[blue_maple]

要不你就在程序中编辑AUTOEXEC.BAT这个文件保存当前路径，开机就运行

[qdaijchf]

我再试试。

[qdaijchf]

已经有了重大进展，在WinXP中已经能够开机启动，但在Win7中还是没启动，虽然注册表中有了相应的键值。

[sit10104116]

赞，可以实现开机就启动自己所编写的程序的功能

[zxy0659]

试试就知道 我也知道了 谢了