开始->运行—>regedit->Ctrl+F->输入要查的主建->Enter
继续查找用F3
继续查找用F3
解决方案 »
- delphi按钮图标
- 如何在不下载的前提下先验证一个下载链接文件是否有效?
- MSCOMM32用vb最后可以接收到数据,delphi却不正常
- 怎么在dbgrid里放一列不是通过查询得到的数据?
- 如何用delphi实现自动填写当前浏览器显示的页面的标单
- 紧急求助!!!!!!!!大家来帮忙!!
- 在IntraWeb中弹出“确定”“取消”两个按钮的消息框怎样做?谢谢
- DELPHI怎么实现各控件按了回车后可以换位置,TABINDEX,是可以的。那回车键呢?
- delphi中如何实现“拨号”连接两台电脑?
- Delphi程序最小化的问题
- 为何DBgrid只可显示小数点后的四位,不知如何显示更多位?
- 声名变量的问题
不知你注意到没有tregistery这个类里面有TRegistry.GetKeyInfo
procedure GetKeyNames(Strings: TStrings);
这两个方法,可以取得这个父键下面的所有子键的信息。所以你可以从根部开始,递归调用
。
这个有点类似findfirst,findnext搜寻下面的所有的文件。
一点忠告:别人帮你,你应该感谢才对,无论别人是对是错
你这个态度,谁还愿帮你?????
reg:TRegistry
procedure GetKeyNames(Strings: TStrings);
返回所有键名
procedure GetValueNames(Strings: TStrings);
返回所有的值
加上上面的,你就可以完成你的要求了
呵呵Var Reg : TRegistry;
list : TStrings;
i : Integer;
Begin
Reg:=TRegistry.Create;
Reg.RootKey:='HKEY_LOCAL_MACHINE';
If Reg.OpenKey('\Software\Microsoft\CurrentVersion\Run', false) then
Begin
List:=TStringList.Create;
Reg.GetValueNames(List);
For i:=0 to list.Count-1 do
If Reg.ValueExists(List[i]) then
Begin
Case Reg.GetDataType(List[i]) of
rdInteger: Reg.ReadInteger(List[i]);
rdBinary: Reg.ReadBinaryData(List[i]);
else
Reg.ReadString(List[i]);
End;
End;
End;
End;