проблемы с записью в реестр

[dasker]

граждане есть код добаваления программы в автозагрузку:

Код: Выделить всё

'Декларация
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, 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 Sub AddToStartup(ByVal sDesc As String, ByVal sFile As String)
Dim lRegKey As Long
RegOpenKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", lRegKey
RegSetValueEx lRegKey, sDesc, 1, 1, ByVal sFile, Len(sApp)
RegCloseKey lRegKey

End Sub

Private Sub Command1_Click()
AddToStartup "calc", "c:\calc.exe"
AddToStartup "calc", "c:\calc.exe"
End Sub


но в реестре создается только название ключа, а параметра, в данном случае пути к программе ничего не записывает
windows Xp, sp1, vb6

[_Hiser_]

Энто делается вот так.

Код: Выделить всё

Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition 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         ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long

Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_SET_VALUE = &H2
Private Const SUBNAME = "Software\Microsoft\Windows\CurrentVersion\Run"

Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Private Function AddToStartup(ByVal sDesc As String, ByVal sFile As String) As Boolean
Dim hkey As Long
Dim secattr As SECURITY_ATTRIBUTES
If CBool(RegCreateKeyEx(HKEY_LOCAL_MACHINE, SUBNAME, 0, "", 0, KEY_CREATE_SUB_KEY Or KEY_SET_VALUE, secattr, hkey, 0)) Then Exit Function
RegSetValueEx hkey, sDesc, 0, REG_SZ, ByVal sFile, Len(sFile)
RegCloseKey hkey
AddToStartup = True
End Function

Private Sub Command1_Click()
Me.Caption = AddToStartup("calc", "c:\calc.exe")
End Sub


[Andrev]

Ну да, а можно и так:

Код: Выделить всё

Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\calc", "c:\calc.exe"


По-моему, так проще.

[killerb]

Andrev твой код выдает ошибку "Varaable not defined"

[_Мика_]

Дык в Reference надо галочку поставить

[Alexander N. Samarin]

Какую галочку?

[|kerish|]

Andrev И на хрена нужно таскать с собой лишнюю библиотеку?
На некоторых системах твой код будет работать некорректно.

[VERITAS]

А если кроме этого с реестром поработать надо, то вот прекраснейший модуль от GSerg'a

или же еще один универсальный модуль, который оптимизирован по самое "нехочу"

Ok