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

[Lumen]

Всем привет!!!
Вот столкнулся с такой проблемой: пишу прогу, которая должна запускаться вместе в Windows. Ясен перец, что прописываю её в HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\. Собственно вот процедура записи:

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

Public Sub AddToAutostart(spath As String)
    Dim Result As Long
    Dim Retval As Long
       
    Retval = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", 0, KEY_ALL_ACCESS, Result)
    RegSetValueEx Result, "proga", 0, REG_SZ, ByVal spath, Len(spath)
    RegCloseKey Result
End Sub


Суть проблемы заключается в том, что из IDE все прекрасно работает, а при попытке запустить скомпиленное приложение прога просто-напросто грузит процессор и ничего никуда не пишет. Кто-нибудь может подсказать, с чем это связано?
Спасибо.

[BV]

Отдельно функцию проверял?

[Lumen]

В каком смысле?
В том то и дело, что код проги раньше работал (конкретно до переустановки. Однако до переустановки и после неё у меня стояла и теперь стоит Windows XP SP2). А теперь просто не знаю, что делать.

[Роман-вб]

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

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()
AddToStartup "Моя программа", "C:\soft\MyProg.exe"
End Sub
УДАЛЯЕТ
Private Sub Command2_Click()
DeleteAtStartup "Моя программа"
End Sub


[Lumen]

Спасибо, сейчас попробую.