用VB函數輕松訪問系統注冊表

2019-11-18 17:52:45

字體：大中小

來源：轉載

供稿：網友

注冊表在Windows9x中的作用是不言而喻的，它除了保存操作系統自身的軟件、硬件及環境信息外，一個重要的用途就是保存應用程序中允許用戶定制修改的配置信息。在VisualBasic應用程序中，有兩種訪問系統注冊表的方法：一種是使用VB自帶的注冊表函數，另一種則是使用WindowsAPI函數，這兩種方法各有優缺點，前者功能簡單但容易使用，后者則功能強大但使用相對復雜一些，本文給大家介紹用VB自帶的函數訪問系統注冊表的方法。一、用VB函數訪問注冊表的方法

在VB5.0中自帶的注冊表函數（命令）共有4條，分別是SaveSetting、GetSetting、GetAllSettings和DeleteSetting，下面是四個函數的詳細用法：1SaveSettingappname,section,key,setting　appname應用程序或工程的名稱

　section　注冊表區域名稱，在該區域保存注冊表項設置

　key要修改的注冊表項的名稱

　setting　key的設置值

SaveSetting的功能是在注冊表中指定應用程序的區域中為某注冊表項賦值，如果指定的應用程序名、區域名或注冊表項不存在，則先建立再賦值?？梢岳眠@條命令建立某個注冊表項或修改注冊表項的值。如命令SaveSetting″MyApp″,″Option″,″MyValue″,1的功能是將程序TestApp的Option區中MyValue表項的值賦為1，如果MyValue不存在則先建立該表項再賦值為1。2GetSetting(appname,section,key[,default])　appname應用程序或工程的名稱

　section區域名稱

　key注冊表項名稱

　default　key的缺省值，為可選參數

GetSetting的功能是從注冊表中的應用程序指定區域中返回某注冊表項的設置值，如果GetSetting的參數中的任何一項在注冊表中都不存在，或key沒有賦值（即=″″）時，則返回default指定的值。如代碼Value=GetSetting(″MyApp″,″Option″,″MyValue″)可以獲取程序TestApp的Option區中MyValue表項的值。3GetAllSettings(appname,section)　appname應用程序或工程的名稱

　section區域名稱

GetAllSettings函數返回Variant型數據，其內容為字符串的二維數組，該二維數組包含指定區域中的所有注冊表項設置及其對應值。如果指定的appname或section不存在，則返回未初始化的Variant。如命令MySettings=GetAllSettings(″MyApp″,″Option″)可獲取Option下所有注冊表項的名稱和取值，并將結果保存在變體型數據MySettings中。4DeleteSettingappname[,section[,key]]　appname應用程序或工程的名稱

　section要刪除注冊表項設置的區域名稱，為可選參數

　key　　要刪除的注冊表項，為可選參數

DeleteSetting命令在注冊表中，刪除應用程序信息、區域或注冊表項。當只提供appname參數時，將刪除appname指定的應用程序的所有信息，如果提供了appname和section參數，則刪除section指定的區域，如果提供了所有參數，則刪除指定的注冊表項設置。如果指定的應用程序、區域或注冊表項不存在，DeleteSetting將不做任何事情。如：DeleteSetting″MyApp″將刪除MyApp應用程序保存的全部信息。二、程序實例

下面以一個簡單的實例說明四個函數的使用。

新建工程，在Form1上放置兩個標簽，Caption屬性分別為“姓名”和“公司”；兩個文本框txtName和txtCompany，Text屬性均設為空；三個命令按鈕cmdSave、cmdFind和cmdDelete，Caption分別設為“保存”、“查看”和“刪除”，窗體布局如圖1。給三個命令按鈕添加如下代碼：

PRivateSubcmdSave_Click()

′將兩個文本框中的內容分別賦給MyApp下User區中Name和CompanySaveSetting″MyApp″,″User″,″Name″,txtNameSaveSetting″MyApp″,″User″,″Company″,txtCompanyMsgBox″您的信息已成功保存！″

EndSub

PrivateSubcmdFind_Click()

′查找MyApp下User區中Name和Company的設置值并顯示MsgBox″您的姓名是：″＆GetSetting(″MyApp″,″User″,″Name″)＆Chr(13)＆Chr(10)＆″您的公司是：″＆GetSetting(″MyApp″,″User″,″Company″)EndSub

PrivateSubcmdDelete_Click()

′刪除MyApp下的User區域及其下的所有注冊表項DeleteSetting″MyApp″,″User″EndSub

運行程序，在圖窗口中輸入姓名和公司名稱，之后按“保存”按鈕，然后再按“查找”，可以看到顯示出了正確的結果（圖2），說明保存和查找操作都已正常進行。如果在保存之前或刪除之后按“查找”按鈕，則出現右圖3對話框，說明要找的注冊表項不存在。使用上面介紹的四個函數（命令），我們可以非常容易地在VB代碼中訪問系統注冊表。但有一點比較遺憾，VB的這幾個函數只能在系統注冊表的固定位置進行工作，即只能在/KEY_CURRENT_USER/Software/VBandVBAProgramSettings下完成建立、修改和刪除操作，當然這個限制對于一般的應用程序無關大局，但對較大的應用程序就會造成一些不便，這時我們就需要借助于WindowsAPI函數。->

上一篇：在VisualBasic中使用Rundll32.exe和Rundll.exe

下一篇：加速VisualBasicForApplication(VBA)