Опять, этот реестр

[Sirik]

Я реализую запись в реестр таким образом:

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

Посмотри на примере добавления в автозагрузку:

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 Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Const HKEY_LOCAL_MACHINE = &H80000002

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


Как мне теперь удать те данные, которые я внёс?

[Ramzes]

попробуй так

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

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 "Моё приложение", App.Path & App.EXEName & ".exe"
End Sub
Private Sub Command2_Click()
DeleteAtStartup "Моё приложение"
End Sub




[Sirik]

попробуй так

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

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 "Моё приложение", App.Path & App.EXEName & ".exe"
End Sub
Private Sub Command2_Click()
DeleteAtStartup "Моё приложение"
End Sub




Thank you

[Sirik]

А как прочитать есть ли строка или нет?

[tyomitch]

RegQueryValueEx - вернёт не 0, если есть.

[GSerg]

Не совсем...
0: есть
2: нет
5: пущать не велено