VB對注冊表操作程序開機時運行

我們可以看到一些程序在開機時就會自動運行象Winpopup就是這樣的這是怎麼實現的呢？可以把需要運行的程序添加到開始程序啟動中還有一種方法就是寫入注冊表了這裡我們討論通過寫注冊表來實現的方法從中可以看到三個對注冊表操作的API函數的使用技巧

　　 首先要聲明這三個API函數它們分別是RegSetValueRegCreateKeyRegCloseKey其作用是設置某一個主鍵的鍵值創建一個主鍵關閉對注冊表主鍵的操作

　　　 Private Declare Function RegSetValue Lib advapidll Alias RegSetValueA (ByVal hKey As Long ByVal lpSubKey As String ByVal dwType As Long ByVal lpData As String ByVal cbData As Long) As Long
　　　 Private Declare Function RegCreateKey Lib advapidll Alias RegCreateKeyA (ByVal hKey As Long ByVal lpSubKey As String phkResult As Long) As Long
　　　 Private Declare Function RegCloseKey Lib advapidll (ByVal hKey As Long) As Long

　　 然後聲明以下兩個常數要進行注冊表寫入的位置是在HKEY_LOCAL_MACHINE下我們可以在VB自帶的API文本查看器中找到這些常數的定義方法

　　　 Private Const HKEY_LOCAL_MACHINE = &H
　　　 Private Const REG_SZ =

　　 然後使用如下語句就行了你可以把這段代碼放在程序的某個位置

　　 @#寫注冊表
　　 Dim Ret As Long
　　 @#打開 HKEY_LOCAL_MACHINE　下的　software\microsoft\windows\currentVersion\runServices　主鍵
　　 RegCreateKey HKEY_LOCAL_MACHINE software\microsoft\windows\currentVersion\runServices Ret
　　 @#將此主鍵下的默認項的值改為c:\windows\system\myprogramexe也就是要開機運行的程序路徑
　　 RegSetValue Ret vbNullString REG_SZ c:\windows\system\sysinfoexe
　　 @#關閉對主鍵的操作
　　 RegCloseKey Ret
From:http://tw.wingwit.com/Article/program/net/201311/12819.html