Программирование
Веб программирование

Запись в святую святых Реестра

 
 

Святая святых реестра это раздел Run, т.е. наша программа будет запускаться при запуске компа. Что нам для этого надо? Нам нужен Модуль который мы сделали в предыдущем шаге. Его ты можешь скачать Здесь. Чтобы подключить его нажми Проэкт(Project)>>Добавить файл(Add File). В появившимся окне выбери наш модуль. Теперь на форму кинь кнопку, при нажатии на нее путь к нашей программе попадает в святую святых реестра.

Для начала я скажу где хранится раздел Run - HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun . Да, да сюда мы сейчас и будем записывать свою программу. Кстати, в этом же разделе есть 5-7 папок начинающихся на Run, они тоже сойдут(например RunOnce).Код(ТОЛЬКО НЕ ЗАБУДЬ МОДУЛЬ ПОДКЛЮЧИТЬ!!!!)

Dim q As String
Private Sub Command1_Click() 
q = App.Path + "proga.exe" 'Узнаем путь к нашей программе(App.Path), и прибавляем ее название(НЕЗАБУДЬ ЕЕ ПЕРЕИМЕНОВАТЬ В proga)
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWAREMicrosoftWindowsCurrentVersionRun", "Proga", q, REG_SZ 'Запись!
End Sub

Теперь немного объясню: Первой идет функция SetKeyValue, она нужна для записи(Ты что забыл?), потом главный ключ(HKEY_LOCAL_MACHINE), потом путь к объекту Run(SOFTWAREMicrosoftWindowsCurrentVersionRun), потом название строкового параметра(Proga), а потом путь к программе. Вот и все!
Исходник


Есть вопросы? Спроси на нашем форуме!!
Павел [25.03.2010 21:35]

У меня не получается в риестр прописать прогу

MArk [02.08.2010 14:08]






а как удалять из реестра?) тоже прогой . какой код?


















псих99 [25.08.2010 16:25]

не по фен шую делаешь или руки не из плеч

Гость [27.03.2011 01:56]

Модуль мб забыл.

Гость [28.03.2011 13:14]

Марк,в предыдущем уроке посмотри.

Антон [15.07.2011 19:49]

умя сначала не запускалось но я потом понял чё это tune ap менеджер автозагрузки определил мою прогу как ненужную и отрубил меня из святого пути SOFTWARE\Microsoft\Windows\CurrentVersion\Run

Дима [24.01.2012 14:41]

Это автозагрузка для Windows 7 ????

Юра [24.01.2012 15:20]

Для Win XP/7

Razor64 [29.04.2012 18:29]

Здравствуйте я вот код нашёл для записи в реестр - может кому пригодиться))): Private Sub Command1Click() 'Запись в реестр
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя твоей проги", "Путь к твоей проге"
End Sub

Private Sub Command2
Click() 'Удаление из реестра
Set Reg = CreateObject("WScript.Shell")
Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Имя твоей проги"
End Sub
Работает 100%

Гость [10.06.2012 00:56]

Razor64, у меня ничего не получается пишет: Ошибка "70" доступ закрыт что делать???

FireDay [12.06.2012 00:17]

Такая же проблема была (win7, записывал в авто-загрузку) запустил программу от имени Администратора - помогло.

Razor64 [12.06.2012 04:42]

Необходимо чтобы ТОЧНО были указаны название и путь к вашей программе. Например:
...HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Блокнот","D:\Блокнот.txt"

Гость [20.06.2012 22:35]

как записывать app.path???
Либо вместо app.path расположение файла,
либо вместо Path писать расположение файла подскажите пожалуйста!!!!???

FireDay [20.06.2012 22:38]

Me.Caption = App.Path & "\" & App.EXEName & ".exe"

FireDay [20.06.2012 22:43]

Razor64, в HKLM может не давать писать из-за UAC.
Писать можно в HKCU (HKEYCURRENTUSER).

Гость [20.06.2012 23:55]

FireDay, спасибо!!!!!

zm2003160 [21.03.2013 08:51]

Удаление:
DeleteValue HKEYLOCALMACHINE,
"SOFTWAREMicrosoftWindowsCurrentVersionRun", "Proga"
Чтение:
Dim Variable As String
Text1.Text = QueryValue(HKEYLOCALMACHINE, "SOFTWAREMicrosoftWindowsCurrentVersionRun", "Proga")



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.