Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private 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
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
If Check1.Value = 1 Then '检查是否选中自动运行项
rc1 = RegOpenKeyEx(HKEY_LOCAL_MACHINE, gREGKEYSTARTUP, 0, KEY_ALL_ACCESS, hKey) ' Open Registry Key
str1 = App.Path & "\juniozhu.exe" 'juniozhu.exe就是指你要开机时运行的程序
rc1 = RegSetValueEx(hKey, "juniozhu", 0, REG_SZ, ByVal str1, Len(str1) + 1) '传递子符子串时前面须加上传值类型ByVal,方能传递字符串
Else
rc1 = RegOpenKeyEx(HKEY_LOCAL_MACHINE, gREGKEYSTARTUP, 0, KEY_ALL_ACCESS, hKey) ' Open Registry Key
rc1 = RegDeleteValue(hKey, "juniozhu")
End If
前面三个是用的到的API函数,其它的你自己去看看,我想你应该可以看的懂:)