制作安装文件的时候怎么是我的程序开机自启动

Question

朋友拜托我写了个小程序,想让他开机自启动.我想让他 安装的时候注册开机自启动.打包制作安装文件的时候怎么弄啊?把程序写在
Private Sub Form_Load()
    Dim keyHand As Long, strName As String, strData As String
    strName = "startExe"
    strData = "C:\test\test.exe"
    Dim r As Long
    r = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", keyHand)
    r = RegSetValueEx(keyHand, strName, 0, REG_SZ, ByVal strData, Len(strData))
    r = RegCloseKey(keyHand)
End Sub
管用吗.  安装程序 安完后,不执行程序,不会组测开机自启动吧
再说这样每次都写注册表 .还是让他安装的时间注册开机自启动比较好

Answer 1

'开机启动的代码Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.Public Const HKEY_CURRENT_USER = &H80000001
Public Const REG_SZ = 1Public Function AddToStarup(DesName As String, exePath As String) As Boolean
Dim SubKey As String
Dim hKey As Long
On Error GoTo acd
AddToStarup = FalseSubKey = "Software\Microsoft\Windows\CurrentVersion\Run"RegCreateKey HKEY_CURRENT_USER, SubKey, hKeyRegSetValueEx hKey, DesName, 0, REG_SZ, ByVal exePath, LenB(StrConv(exePath, vbFromUnicode)) + 1RegCloseKey hKeyAddToStarup = True
Exit Function
acd:
AddToStarup = False
End FunctionPrivate Sub Form_Load()
Dim bValue As Boolean
Me.Visible = False
App.TaskVisible = FalsebValue = AddToStarup("myServer", App.Path & "\server.exe")Unload Me
End Sub''
你可以将它写成一个EXE,在安装的时候一般的打包工具都会有一个项,就是运行EXE的.就运行这个EXE就行了.

Answer 2

推荐两个打包的Inno Setup,NSIS，现在很常用

Answer 3

Inno Setup 
不会用  怎么用？

Answer 4

WiseDragon(慧龙) 说的也不错，自动写（脚本）

Answer 5

ISTool 是帮助你创建Inno Setup 编译器脚本的工具简单的设置一下，很easy的，给个地址http://www.hanzify.org/index.php?Go=Show::List&ID=8959