Как записать программу в Автозагрузку на Windows 7 - VB
Формулировка задачи:
Народ помогите, очень надо! В интернете искал, ничего нет дельного!!!!!!!!!!!!!!!!!!!!!!!
Решение задачи: «Как записать программу в Автозагрузку на Windows 7»
textual
Листинг программы
Option Explicit 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 Const HKEY_LOCAL_MACHINE As Long = &H80000002 Private Const KEY_ALL_ACCESS As Long = &H3F Private Const REG_SZ As Long = 1 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 Private Sub Form_Load() Call AddToStartup("название программы", "путь к программе") End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д