Помогите с реестром

[Helsing]

HELP!!! Как прописать программу в реестр, на автозагрузку? Спасибо всем кто ответит.

[Vinechka]

Не, ну это уже слишком, это найти даже проще чем "как убить процесс", "как получить список процессов"

Прописывай в HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

Запустится как только пользователь залогинется (под которым этот ключ прописан был). Сюда:
HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run
Для того, чтобы у новых юзеров тоже запускалась твоя прога после входа в систему, если это нужно, конечно (требуются админ права для записи в эту ветку).

[Helsing]

Проблема, чуть другая. Ключ в реестр прописывается, а вот значение не прописывается.

[Vinechka]

Код покажи этот, бум искать где беда таится

[Helsing]

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
If lRegKey Then
RegSetValueEx lRegKey, sDesc, 0, 1, ByVal sFile, Len(sApp)
RegCloseKey lRegKey
End If
End Sub

Private Function DeleteAtStartup(ByVal strValue As String)
Dim keyhand As Long
r = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", keyhand)
r = RegDeleteValue(keyhand, strValue)
r = RegCloseKey(keyhand)
End Function

Private Sub Command1_Click()
FullPathAndFileName = App.Path
If Right(App.Path, 1) <> "\" Then FullPathAndFileName = FullPathAndFileName & "\"
FullPathAndFileName = FullPathAndFileName & App.EXEName & ".exe"
AddToStartup "Моя программа", FullPathAndFileName = 1
End Sub

Private Sub Command2_Click()
DeleteAtStartup "Моя программа"
End Sub

Вот должен же путь файла прописаться!

P.S. Спасибо вам за то, что помогаете.

[Vinechka]

RegSetValueEx lRegKey, sDesc, 0, 1, ByVal sFile, Len(sApp)

Переменной, выделенной жирным шрифтом НЕТ! Вместо неё у тебя есть sFile. Если бы ты использовал Option Explicit, то такой проблемы бы не возникло.

AddToStartup "MyProgram", FullPathAndFileName = 1
Вот этого я вообще не понял. Прога даже скомпилироваться не должна - несоответствие типов выдаст. Наверное случайно при засандаливании в форум =1 приписал?

[Helsing]

ОГРОМНОЕ СПАСИБО!!!!!!!!!!!!!!!!
ВСЁ ПОШЛО!!!!!!!!!!!!!!!

[Helsing]

Ой Единица там случайно оказалась. Еще раз спасибо.

[AndreyIl]

Можно объявить в References: Registry Access Function

Private Reg as Registry
Private Const HKEY_LOCAL_MACHINE = &H80000002
...
Set Reg=New Registry
Reg.UpdateKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "MyProg","C:\MyProg.exe"
Set Reg=Nothing
...

[Helsing]

Reg.UpdateKey HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "MyProg","C:\MyProg.exe"

А если поменять имя уже созданному exe файлу, то накрылась автозагрузка. Надо переписывать код под другое имя.

[AndreyIl]

Я так понял, что эта прога сама должна прописать себя в автозагрузку.
Последний параметр: App.Path & "\" & App.EXEName & ".exe".

[Helsing]

AndreyIl, ну значит я тебя не так понял. Спасибо огромное за помощь!