VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 怎样存取注册表信息
发表评论(0)作者:西安 蒋立冬, 平台:VB6.0+Win98, 阅读:9964, 日期:2000-11-08
    应用程序在启动和运行时需要将一些重要的信息保存起来,以便在下次启动和运行时使用。在Windows16位操作系统中,使用系统初始化文件(INI)来存取重要参数。在微软WIN95及最新的WIN98系统中,却是采用注册表来存放应用程序的启动及运行所需的重要参数。
    注册表的存取方法一般有以下两种:
    一、使用WIN95提供的注册表编辑器。使用方法为:点“开始”,选“运行”,打开“regedit”,回车即可进入注册表编辑器。使用它提供的新建、删除及修改等功能来完成对注册表的存取操作。但一定要注意预先备份注册表。
    二、编程实现。可以采用WIN95 API中有关注册表编辑的几个函数来读写注册表,但是技巧性很强,万一操作不当,则可能破坏注册表,造成系统下次启动或某些程序运行故障。
    下面我利用VB5.0提供的两个语句和两个函数来读写注册表,它们的使用方法十分简单,而且很实用。
    1、SaveSetting语句
    语法:SaveSetting appname,section,key,setting
    2、GetAllSettings函数
    语法:GetAllSettings (appname,section)
    3、GetSetting函数
    语法:GetSetting(appname,scetion,key[,default])
    4、DeleteSetting语句
    语法:DeleteSetting appname,section,[key]
    参数含义:
    appname:字符串表达式,应用程序名
    section:字符串表达式,小节名
    key: 字符串表达式,关键字名
    setting:表达式,关键字设定值
    下面通过实例来说明它们的用法:应用程序名为jld_app,小节名为startup,关键字为left。
    在注册表中建立应用程序的注册项:
    SaveSetting “jld_app”,“startup”,“left”,100
    从应用程序注册表项中读取所有关键字及其对应的值:
    Dim mysettings(10,10)As Variant
    Dim settingindex As Integer
    GetAllSettings “jld_app”,“startup”
    For settingindex=LBound(mysettings,1)To UBound(mysettins,1)
    Debug.Print mysettings(settingindex,0);“=”;mysettings(settingindex,1)
    Next settingindex
    End Sub
    从应用程序注册表项中读取关键字“left”的设置:
    Debug.Print GetSetting(“jld_app”,“startup” ,“left”,“not ok”)
    从WIN95注册表中删除小节“startup”
    DeleteSetting“jld_app”,“startup”
     (西安 蒋立冬)