求救``如何将写好的程序在其运行时加载到启动项中，使WINDOWS下次启动时自动运行该程序``？
帮忙啊``

注册表操作　
下面的代码功能是修改注册表
把C:\你的程序.exe设置库开机自启动:
Set my = CreateObject("WScript.Shell") my.regWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\你的程序", dirwin & "C:\你的程序.exe", "REG_SZ"

你可以把以上代码放到你的软件的启动窗口的Form_Load()事件中。

[此贴子已经被作者于2006-8-30 10:39:22编辑过]

才学两天，我不相信。。你怎么在学的。

用一种打包程序打包（具体名字我不记得了，只知道我打包的时候就用那个工具，挺好用的），里面有选项就是加载到启动里面

是这个吧．．．

[URL=http://www.bc-cn.net/bbs/dispbbs.asp?boardID=6&ID=83342&page=5]http://www.bc-cn.net/bbs/dispbbs.asp?boardID=6&ID=83342&page=5[/URL]

等明天上网我把它发上来，今天朋友在用我的电脑，没办法

可能是，我忘了叫什么名字了，反正是免费的

继续求问：
如何想移植到其他电脑上，不放在指定的文件夹里```而放在其他位置。双击还是要 加载到启动项中，有什么办法没有？

用app集合的path属性实现
++++++++
1，用app集合的path属性先定位你的程序在电脑中的位置。
2，然后按照2楼的那为兄台的说法把程序位置加上去就行了（我没试过，不过以前在书上看过，唉人太懒了啊）

顺便说一句APP集合在操作其程序方面功能还是很强的

使用这些 api 函数:

RegCreateKey 打开注册表以读数据，得到一个键句柄(只有拥有这个句柄才能进行注册表读写操作)
RegSetValueEx 利用得到的键句柄，添加新键值
RegCloseKey 关闭注册表

在 HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Run 里添加一个值，名字是你的程序名，值是程序路径。

这些函数到 api 浏览器找去。下面是我一个程序的注册表写入代码

Dim strString As String, keyhand As Long

strString = App.Path & "\exe.exe"
RegCreateKey &H80000002, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", keyhand
RegSetValueEx keyhand, "Exe", 0, 1, ByVal strString, LenB(strString)
RegCloseKey keyhand