delphi操作注册表读取软件列表

页面导航:首页 > 软件编程 > Delphi > delphi操作注册表读取软件列表

delphi操作注册表读取软件列表

来源: 作者: 时间:2016-01-21 09:33 【

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,registry, StdCtrls;typeTForm1 = class(TForm) Button1: TButton; ListBox1: TLi

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,registry, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegistry;
myList:TStringList;
i:integer;
curkey,SName:string;
begin
reg:=TRegistry.Create;
MyList:=TStringList.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey(SoftwareMicrosoftWindowsCurrentVersionuninstall,False) then
Begin
    reg.GetKeyNames(myList);
    curkey:=reg.CurrentPath;
    reg.CloseKey;
    for i:=0 to MyList.Count-1 do
    if reg.OpenKey(curKey++MyList.Strings[i],False) then
    Begin
      if reg.ValueExists(DisplayName) then
        Sname:=reg.ReadString(DisplayName)
      else
        SName:=MyList.Strings[i];
      if reg.ValueExists(DisplayVersion) then
        Sname:=Sname+ 版本:+reg.ReadString(DisplayVersion)
      else
        SName:=MyList.Strings[i];
      Listbox1.Items.Add(SName);
      reg.CloseKey;
    end;
end;
end;
end.

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <