delphi 遍历注册表


本文整理自网络,侵删。

 下面程序是读出windows中所有的已安装的程序.你自己看一下,很容易的.   
  uses   Registry;   
    
  procedure   TForm1.Button1Click(Sender:   TObject);   
  Var     list,softList   :TStringList;   
            Reg   :TRegistry;   
            FPath,FKey,SubString:String;   
            i:   integer;   
  begin   
        FPath   :=   'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';   
        FKey   :=   'DisplayName';   
        list   :=   TStringList.Create;   
        softList   :=   TStringList.Create;   
        Reg   :=   TRegistry.Create;   
    try   
        Reg.RootKey   :=   HKEY_LOCAL_MACHINE;   
        If   Reg.OpenKey(FPath,   False)   then   
            Reg.GetKeyNames(List);   
            List.Sort;   
            List.BeginUpdate;   
        Reg.CloseKey;   
        If   Reg.OpenKey(FPath,   False)   then   
              Edit1.Text   :=   List[0];   
            //Edit1.Text   :=   Reg.ReadString('DriverDesc');   
        Reg.CloseKey;   
        for   i:=0   to   List.Count-1   do   begin   
              FPath   :=   'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+List[i];   
              if   (Reg.OpenKey(FPath,False))   and   (Reg.ReadString(FKey)<>'')     then   
                  softList.Add(Reg.ReadString(FKey));   
              Reg.CloseKey;   
        end;//end   for   
    finally   
        Reg.Free;   //   用   Try..Finally   结构确保   REG   变量能够释放。   
    end;   
    softList.Sort;   
    ListBox1.Items:=softlist;   
  end;

相关阅读 >>

Delphi2010 的自带的内存泄漏检测

Delphi 获取进程列表及相关信息

Delphi 检测是否包含字符

检查是否在Delphi xe7中启用或禁用了android蓝牙

Delphi 获取android包名称

Delphi memo 滚动条 自动滚到最后一行

Delphi字符串内多个空格合为一个空格

Delphi模拟文件拖拽

webbrower常见问题及解决方法

Delphi url protocol 让浏览器运行本地的exe程序

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...