Delphi编程访问注册表

　　4、 特别说明：此程序就是典型的对注册表进行读和写的操作。

　　二、 编程思想

　　（一）、注册表中隐藏驱动器的原理

　　1、在DOS、WIN9X/NT中，驱动器是用字母A-Z表示。其中A和B表示软盘驱动器，C到Z则表示硬盘或网络驱动器。也就是说，总共可以支持26个驱动器。

　　2、在注册表的

　　HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\explorer下新建或修改DWORD类型的NoDrives的值，可以隐藏或显示驱动器图标。从而达到本程序的目的。

　　3、NoDrives的取值特点

　　NoDrives是4字节共32位的键值。从第0位到第31位的取值，就分别控制着驱动器A到Z的状态。若第0位取值为1，则将隐藏驱动器A；若第1位为0，则显示驱动器B，如此类推即可。如图三所示：

　　（二）、DelPhi中对注册表的读写过程简介

　　在DelPhi中为程序员提供了一个Tregistry类，它提供了众多丰富的方法来完成对注册表的修改。限于篇幅，下面只针对本实例中所用到的读写注册表的方法进行简介：

　　（1）打开一个键：OpenKey（）；

　　function OpenKey(const Key: String; CanCreate: Boolean): Boolean;

　　（2）向一个键中写入整型数据：WriteInteger（）；

　　procedure WriteInteger(const Name: string; Value: Integer);

　　（3）读取一个键中某个具体的整型数值：ReadInteger（）；

　　function ReadInteger(const Name: String): Integer;

　　（4）判断某一键值是否存在：ValueExists（）；