用VB函數(shù)輕松訪問系統(tǒng)注冊表

2019-11-18 17:52:45

字體：大中小

來源：轉載

供稿：網(wǎng)友

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

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

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

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

　setting　key的設置值

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

　section區(qū)域名稱

　key注冊表項名稱

　default　key的缺省值，為可選參數(shù)

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

　section區(qū)域名稱

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

　section要刪除注冊表項設置的區(qū)域名稱，為可選參數(shù)

　key　　要刪除的注冊表項，為可選參數(shù)

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

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

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

PRivateSubcmdSave_Click()

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

EndSub

PrivateSubcmdFind_Click()

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

PrivateSubcmdDelete_Click()

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

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

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

下一篇：加速VisualBasicForApplication(VBA)