使用API函數修改註冊表

 
使用API函數修改註冊表
 
為了讓自己的程式成為自動啟動需要修改註冊表。下面案例可以供參考
 
Option Explicit
 
Const REG_SZ = 1
Global Const HKEY_LOCAL_MACHINE = &H80000002
 
Public Declare Function RegOpenKey Lib "advapi32" Alias "RegOpenKeyA" _
      (ByVal hKey As Long, ByVal lpszSubKey As String, phkResult As Long) As Long
'該函數用於開啟系統註冊表中已存在的鍵函數的傳回值：鍵開啟成功返回0，否則返回非0，phkResult被設定為該鍵的控制代碼。
 
Public Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" _
      (ByVal hKey As Long, ByVal lpszValueName As String, _
      ByVal dwReserved As Long, ByVal fdwType As Long, _
      lpbData As Any, ByVal cbData As Long) As Long
'該函數用於向系統註冊表中指定的鍵添加鍵名和索引值。函數的傳回值： 添加鍵名、索引值成功返回0，否則返回非0。
 
Public Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
'該函數用於關閉系統註冊表中開啟的鍵。函數的傳回值：鍵關閉成功返回0，否則返回非0。
 
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" _
      (ByVal hKey As Long, ByVal lpValueName As String) As Long
'該函數用於刪除註冊表中開啟鍵的索引值
 
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" _
      (ByVal hKey As Long, ByVal lpSubKey As String) As Long