为什么不能把2个程序都注册成随windows启动而运行？

2002-09-20 12:17:42 86 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Windows下通过写注册表的方式实现程序开机自启动程序可以读取同目录下的config.ini文件中的配置来实现开机自启动。 config.ini文件地格式实例如下： [Main] KeyName = test ProcessPath = D:\bin\test.exe 其中KeyName字段为写入注册表的表项名称（可以设置为程序名） ProcessPath为程序的完整路径程序的完整源代码如下。 regedit 阅读详情

Private Declare Function RegCreateKey& Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey&, ByVal lpszSubKey$, lphKey&)
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1
Option Explicit
Private Sub cmdRegisterMyApp_Click()
Dim strKeyName As String
Dim strKeyValue As String
Dim intRet As Integer
Dim longKey As Long

strKeyName = "Software\Microsoft\Windows\CurrentVersion\Run"
strKeyValue = App.Path & "\" & "recordClient.exe"
intRet = RegCreateKey&(HKEY_LOCAL_MACHINE, strKeyName, longKey)
intRet = RegSetValue&(longKey&, "", REG_SZ, strKeyValue, 0&)

strKeyValue = App.Path & "\" & "recordClient2.exe"
intRet = RegSetValue&(longKey&, "recordClient2.exe", REG_SZ, strKeyValue, 0&)
MsgBox "registerMyApp success!"
cmdRegisterMyApp.Enabled = False
End Sub
第2个recordClient2.exe总是注册不成功，请各位指教。

...全文