知识大全 Delphi编程访问注册表（二）

Posted 2022-07-14 知

篇首语：但使书种多，会有岁稔时。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi编程访问注册表（二）相关的知识，希望对你有一定的参考价值。

Delphi编程访问注册表（二） 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　二编程思想

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

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

　　在注册表的

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

　　 NoDrives的取值特点

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

图三

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

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

　　（）打开一个键 OpenKey（）

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

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

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

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

　　function ReadInteger(const Name: String): Integer;

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

　　function ValueExists(const Name: string): Boolean;

　　（）关闭一个键 CloseKey

　　procedure CloseKey;

　　（三）设计方法（分为注册表的读写两部分）

　　隐藏按钮中代码的设计思想（注册表的写操作）

　　( ) 当用户单击隐藏按钮时就利用OpenKey方法打开注册表的 HKEY_LOCAL_MACHINE\\SOFARE\\Microsoft\\Windows\\CurrentVersion\\Policies\\explorer 判断其下是否存在 NoDrives 键若此键不存在就自动建立它然后根据用户选择的选择修改 NoDrives 的值用户的选择和NoDrives的值对应关系如下用户选择 A驱则NoDrives的值为

　　用户选择 B驱则NoDrives的值为

　　用户同时选择 A驱和 B驱则NoDrives的值为

　　（）根据用户的选择利用方法WriteInteger（）将NoDrives的值写入注册表

　　（）利用CloseKey关闭打开的主键

　　（注册表的读操作）为了实现程序启动时能自动判断系统驱动器的当前状态还要在Form 的FormCreate（）方法中利用ReadInteger（）和ValueExists（）读取注册表中NoDrives的值然后根据读出的NoDrives的值设置窗体上两个复选的选择状态 NoDrives的值与复选框的状态对应关系如下

　　NoDrives的值为则窗体上 A驱复选框处于选中状态

　　NoDrives的值为则窗体上 B驱复选框处于选中状态

cha138/Article/program/Delphi/201311/8548