分享
 
 
 

从注册表读取程序的版本是很容易的事

王朝other·作者佚名  2008-05-19
窄屏简体版  字體: |||超大  

用Visual Studio .NET读写注册表一般用到Registry类.

Registry类提供在运行 Windows 的计算机上的注册表中找到的标准根项集。

注册表是一个存储设备,包含有关应用程序、用户和默认系统设置的信息。例如,应用程序可以使用注册表来存储在应用程序关闭后需要保留的信息,并在应用程序重新加载时访问那些同样的信息。例如,可以存储颜色首选项、屏幕位置或窗口大小。通过将信息存储在注册表中的不同位置,可以针对每个用户来控制这些信息。

由 Registry 公开的基(根) RegistryKey 实例描绘注册表中的子项和值的基本存储机制。所有项都是只读的,因为注册表依赖于它们的存在。由 Registry 公开的项有: CurrentUser 存储有关用户首选项的信息。 LocalMachine 存储本地计算机的配置信息。 ClassesRoot 存储有关类型(和类)及其属性的信息。 Users 存储有关默认用户配置的信息。 PerformanceData 存储软件组件的性能信息。 CurrentConfig 存储非用户特定的硬件信息。 DynData 存储动态数据。

一旦标识了希望在其下存储/检索注册表中信息的根项后,可以使用 RegistryKey 类添加或移除子项和操作给定项的值。

硬件设备可以使用即插即用接口将信息自动放在注册表中。安装设备驱动程序的软件可以通过向标准 API 写入将信息放在注册表中。

RegistryKey 类

RegistryKey 类表示 Windows 注册表中的项级节点。此类是注册表封装。

注册表充当计算机上操作系统和应用程序的中央信息储存库。注册表根据存储在其中的元素的逻辑顺序,以分层形式组织(有关该层次结构中的基级项,请参见 Registry )。在注册表中存储信息时,请根据存储的信息类型选择适当的位置。一定要避免损坏由其他应用程序创建的信息,原因是这样会导致那些应用程序出现意外的行为,并且还会对您自己的应用程序带来不利影响。

RegistryKeys 是注册表中的基本组织单位,好比是 Windows 资源管理器中的文件夹。特定的项可以有子项(与文件夹可以有子文件夹一样),并且只要用户具有适当的删除权限,且此项不是基项或基项的下一级项,就可以删除此项。每个项还可以有多个关联的值(值好比是文件),用于存储您感兴趣的应用程序的信息。每个值保存一条特定的信息,在需要时可以检索或更新此信息。例如,可以为您的公司创建一个 RegistryKey(在项 HKEY_LOCAL_MACHINE\Software 下),然后为您的公司创建的每个应用程序创建一个子项。每个子项保存特定于该应用程序的信息,如颜色设置、屏幕位置和大小或者可识别的文件扩展名。

注意,存储在注册表中的信息可由其他应用程序和用户使用,因此不要用注册表存储安全信息或关键的应用程序信息。

若要获取 RegistryKey 的实例,请使用静态成员 OpenSubKey ,或者使用 Registry 类的静态成员。

本文主要用到:

RegistryKey.OpenSubKey 方法:用指定的写访问权限检索指定的子项。

以只读方式检索子项。

[Visual Basic] Overloads Public Function OpenSubKey(String) As RegistryKey

RegistryKey.GetSubKeyNames 方法: 检索包含所有子项名称的字符串数组。

Public Function GetSubKeyNames() As String ()

从注册表读取Excel的版本

先引入命名空间:

Imports System

Imports Microsoft.Win32

要对注册表有所了解,知道我们要读取的位置在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office。

Dim rk As RegistryKey = _

Registry.LocalMachine.OpenSubKey("Software\Microsoft\Office", True)

' Get the data from a specified item in the key.

Dim s As String() = rk.GetSubKeyNames()

Dim blnExcel As Boolean = False

'本机是否安装Excel

Dim excelVer As String

'Excel的版本号

For num As Integer = 0 To s.Length - 1

Select Case s.GetValue(num)

Case "11.0", "9.0", "8.0", "5.0", "4.0", "3.0"

'Excel各个版本号

Dim rk1 As RegistryKey = _

Registry.LocalMachine.OpenSubKey("Software\Microsoft\Office\" & s.GetValue(num) & "\Excel", True)

If Not (rk1 Is Nothing) Then

blnExcel = True

excelVer = s.GetValue(num)

Exit Select

Exit For

End If

End Select

Next

用RegistryKey类读写注册表是否十分简便呢?

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有