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

Posted 2022-07-14 知

篇首语：一身转战三千里，一剑曾百万师。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi编程访问注册表（三）相关的知识，希望对你有一定的参考价值。

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

　　三设计过程

　　（一）界面的建立

　　启动DelPhi 新建一个窗体Form

　　在窗体Form 上建立三个TbitBtn按钮两个复选框TcheckBox 一个GroupBox 调整各对象的位置使其与图一所示

　　（二）代码编辑

　　要使程序能够正确访问注册表必须在单元文件unit Unit 的interface的 uses中增加注册表类 Registry 此句千万不能少

　　按钮Bit_all（全选按钮）中的代码如下

　　procedure TForm Bit_allClick(Sender: TObject);

　　begin

　　A_check Checked:=true;

　　B_check Checked:=true;

　　end; //当用户单击全选按钮时将两个复选框都设为选中状态

　　按钮Bit_cancel（取消按钮）中的代码如下

　　procedure TForm Bit_cancelClick(Sender: TObject);

　　begin

　　A_check Checked:=false;

　　B_check Checked:=false;

　　end; //当用户单击取消按钮时则取消复选框的选中状态

　　按钮Bit_hide（隐藏按钮）中的代码如下（主要程序代码均放在这里当用户按此按钮时即完成隐藏驱动器的目的）

　　procedure TForm Bit_hideClick(Sender: TObject);

　　var myreg:TRegistry; // 定义Tregistry型变量myreg

　　temp temp myval:integer;//temp 和temp 分别保存复选框A_check和B_check的值

　　//myval用于保存写入注册表的最终值它等于temp 和temp 的和

begin

　　temp := ;

　　myval:= ; //初始三个变量

　　myreg:=TRegistry Create;//利用Tregistry的Create方法创建一个实例myreg

　　with myreg do

　　begin

　　rootkey:=HKEY_LOCAL_MACHINE;//确定打开注册表的主键

　　if openkey( SOFARE\\Microsoft\\Windows\\CurrentVersion\\Policies\\explorer true) then

　　begin //打开NoDrives所在的键

　　case form A_Check Checked of

　　true:

　　temp := ;//当用户点击 A驱复选框时将临时变量temp 置

　　end;

　　case form B_Check Checked of

　　true:

　　temp := ; //当用户点击 B驱复选框时将临时变量temp 置

　　end;

　　myval:=temp +temp ;//将临时变量temp 和temp 中的值求和赋给myval 因为用户可

　　//能选中两个复选框此时写入注册表的值应为 + 所以用temp 与temp 的和赋给myval

　　WriteInteger( NoDrives myval);//利用函数创建一个Dword值 NoDrives 其值为myval

　　//并写入注册表

　　myreg CloseKey //关闭前面打开的主键完成隐藏操作

　　myreg Free;

　　end;

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

　　procedure TForm FormCreate(Sender: TObject);

　　var myreg:TRegistry;

　　begin

　　myreg:=TRegistry Create;

　　with myreg do

　　begin

　　rootkey:=HKEY_LOCAL_MACHINE;

　　if openkey( SOFARE\\Microsoft\\Windows\\CurrentVersion\\Policies\\explorer true) and ValueExists( NoDrives ) then //如果打开键成功且NoDrives存在则进行下面操作

　　begin

　　if readinteger( NoDrives )= then //读取NoDrives的值若为则将A_check设为选中

　　A_check Checked:=true;

　　if readinteger( NoDrives )= then//读取NoDrives的值若为则将B_check设为选中

　　B_check Checked:=true;

　　if readinteger( NoDrives )= then//读取NoDrives的值若为则将两个复选框均选中

begin

　　A_check Checked:=true;

　　B_check Checked:=true;

　　end;

　　myreg CloseKey;

　　myreg Free;

　　end;

　　将以上程序保存为Hide_drive 然后编译成可执行程序Hide_Drive exe即可此程序在Win 和Delphi 中运行通过操作时隐藏了驱动器请重新注销windows即可看到实际效果

　　四结束语

　　在程序中访问注册表的基本方法是打开注册表读写注册表关闭打开的主键此实例程序本身虽然比较简单但其访问注册表的方法却比较通用你可以将此方法灵活运用到其他程序语言中设计出满足要求的实用程序其实在DelPhi中 Tregistry类为我们提供了更多更丰富的方法来操作注册表但操作的方法仍然是一样的希望通过本文的实例能为广大Delphi爱好者或程序设计爱好者提供一点帮助

　　附为了使大家能对此程序有一个完整的了解下面附上源程序请大家指教！

cha138/Article/program/Delphi/201311/8547