| Код | 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
...
Enum DataType
REG_SZ = &H1
REG_EXPAND_SZ = &H2
REG_BINARY = &H3
REG_DWORD = &H4
REG_MULTI_SZ = &H7
End Enum
...
Dim RetVal As Long
RetVal = RegSetValueEx(handle, ValueName, 0, REG_DWORD, lngValue, 4) |
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=28518&lngWId=1 |