如何获取系统的应用程序

Question

如何获取系统的应用程序，就象360桌面程序一样

Answer 1

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall下的所有项，其中的DisplayName键值

Answer 2

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall这个下面有很多子项，自己看看吧

Answer 3

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('Software\Microsoft\Windows\CurrentVersion\uninstall', 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');        ListBox1.Items.Add(SName);
        reg.CloseKey;
      end;
      ListBox1.Sorted :=True;
  end;
end;