| « | February 2026 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | |
|
公告 |
| 暂无公告... |
| Blog信息 |
|
blog名称:DeathCat的猫窝
日志总数:17
评论数量:89
留言数量:0
访问次数:219475
建立时间:2005年4月5日 |
| |
|
 [Delphi食堂]懒人函数 之 “注册表操作”
原创空间, 软件技术
DeathCat 发表于 2005/4/5 16:34:00 |
| 对于使用注册表,很多人都有自己的方法,因为俺是属于比较懒惰滴~,所以在这里我就把使用注册表的地方拿出来做个函数来用，在外部调用的时候也不用去创建注册表类什么的了，用起来还是比较方便的。就是注意在使用的时候，如果碰到瑞星一类的对注册表监控的程序会有问题，应该先把这些监控程序关掉再用哦。
function ReadKey(Root : HKEY;KeyRout : string;KeyName : String;var Value : string) : boolean;/////////////////////////////////////////////////////////////////////// 函数名称：ReadKey// 函数功能：从注册表中读取数据// 输入： 无// Root : HKEY 注册表的根路径// KeyRout : string 路径// keyName ：键名// 输出： value ：读出的值// Result ： boolean ******* true : 得到键值// false : 没有得到键值////////////////////////////////////////////////////////////////////var Reg : TRegistry; //注册表的类begin Reg := TRegistry.Create; //创建一个注册表的类 try try Reg.RootKey := Root; //注册表根路径 if Reg.OpenKey(KeyRout,false) then //打开注册表路径 布尔值 begin value := Reg.ReadString(KeyName); //为真的时候得到注册表的值（键名） result := true; //键值为真 Reg.CloseKey; //关闭这个类 end else begin result := false; //为假的时候键值为假 end; except //其他情况 result := false //键值为假 end; finally //结束 Reg.Free; //释放类 end;end;
function SaveKey(Root : HKEY;KeyRout : string;KeyName : String; Value : string) : boolean;/////////////////////////////////////////////////////////////////////// 函数名称：SaveKey// 函数功能：注册表中读取数据// 输入： // Root : HKEY 注册表的根路径// KeyRout : string 路径// keyName ：键名// value ：读出的值// 输出：Result ： boolean ******* true : 得到键值// false : 没有得到键值////////////////////////////////////////////////////////////////////var Reg : TRegistry; //变量 注册表的类begin Reg := TRegistry.Create; //创建注册表的类 try try Reg.RootKey := Root; //赋值注册表根路径 Reg.OpenKey(KeyRout,true); //路径为真 Reg.WriteString(KeyName,Value); //得到键名 Reg.CloseKey; //关闭注册表 result := true; //键值为真 except result := false; //否则键值为假 end; finally //结束 Reg.Free; //释放注册表 end;end; |
|
|
回复:懒人函数 之 “注册表操作”
原创空间, 软件技术
琦驼发表评论于2005/4/5 20:06:04 |
|
» 1 »
|