在vb中有一个复选项,如果选中此选项则
 windows启动时运行此程序
否则没有此功能。
            怎么实现:有一点疑问,与安装程序有关吗?或是写注册表?                       有劳在线的兄弟。

解决方案 »

  1.   

    写注册表http://community.csdn.net/Expert/TopicView.asp?id=3638210
      

  2.   

    Option Explicit
    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
    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 RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
    Public Const REG_SZ = 1
    Public Const MAX_PATH = 260
    Public Const HKEY_CURRENT_USER = &H80000001
    Dim ret1 As Long
    Dim temp as String
    temp=app.path+"\"+程序名
    RegCreateKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", ret1
    RegSetValueEx ret1, "autorun", 0, REG_SZ, ByVal temp, Len(temp)
    RegCloseKey ret1
    够详细了吧
      

  3.   

    http://community.csdn.net/Expert/topic/3658/3658033.xml?temp=.3063928
      

  4.   

    老兄:程序名是工程名还是exe文件名