Private Declare Function RegCreateKey Lib "advapi32" Alias
"RegCreateKeyA" _ (ByVal y As Long, ByVal y1 As String, y2 As Long) As Long
Private Declare Function RegOpenKeyExA Lib "advapi32" _ (ByVal u As Long, ByVal u1 As String, ByVal u2 As Long, ByVal u3 As Long, u4 As Long) _ As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal i As Long) As Long
Private Declare Function RegSetValueExA Lib "advapi32" _ (ByVal o As Long, ByVal o1 As String, ByVal o2 As Long, ByVal o4 As Long, _ ByVal o5 As String, ByVal o8 As Long) As Long
Dim a As Long
Dim s As Long
Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Sub Command1_Click()
a = RegCreateKey(HKEY_LOCAL_MACHINE,
"Software\Microsoft\windows\CurrentVersion\Run\ZZZ", s)
End Sub
Private Sub Command2_Click()
a = RegOpenKeyExA(HKEY_LOCAL_MACHINE,
"Software\Microsoft\windows\CurrentVersion\Run\ZZZ", 0,
HKEY_ALL_ACCESS, s)
a = RegSetValueExA(s,
"Software\Microsoft\windows\CurrentVersion\Run\ZZZ", 0, 1,
"gggg", 1)
a = RegCloseKey(s)
End Sub
|
|