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 够详细了吧
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
够详细了吧