Мне нужен код который скопирует мою App в windows/system32 а потом добавит её в автозагрузку с той папки в которую скопирует.
| Код |
Option Explicit
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Const KEY_ALL_ACCESS As Long = &H3F
Private Const REG_SZ As Long = 1
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, ByRef phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey 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, ByRef 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
'Добавить в автозагрузку
Public Sub AddToStartup(ByVal strKey As String, ByVal strValue As String)
Dim lResult As Long
Call RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", _
0, KEY_ALL_ACCESS, lResult)
Call RegSetValueEx(lResult, strKey, 0, REG_SZ, ByVal strValue, Len(strValue))
Call RegCloseKey(lResult)
End Sub
'Убрать из автозагрузки
Public Sub DeleteFromStartup(ByVal strKey As String)
Dim lResult As Long
Call RegOpenKeyEx(HKEY_LOCAL_MACHINE, _
"Software\Microsoft\Windows\CurrentVersion\Run", 0, KEY_ALL_ACCESS, lResult)
Call RegDeleteValue(lResult, strKey)
Call RegCloseKey(lResult)
End Sub
|
Такой например толька добавит в реестр ключь на автозагрузку в текущей папке например C:\docs\blablabla.exe а надо чтобы добавил ключь C:\windows\system32\blablabla.exe |
