Как получить список инсталлированных программ

uses

  Registry;

procedure
 TForm1.Button1Click(Sender: TObject);
const

  UNINST_PATH = 'SOFTWAREMicrosoftWindowsCurrentVersionUninstall';
var

  Reg: TRegistry;
  SubKeys: TStringList;
  ListItem: TlistItem;
  i: integer;
  sDisplayName, sUninstallString: string
;
begin

  {
    ListView1.ViewStyle := vsReport;
    ListView1.Columns.add;
    ListView1.Columns.add;
    ListView1.Columns[0].caption := 'DisplayName';
    ListView1.Columns[1].caption := 'UninstallString';
    ListView1.Columns[0].Width := 300;
    ListView1.Columns[1].Width := 300;
   }
  Reg := TRegistry.Create;
  with
 Reg do

  try

    with
 ListView1.Items do

    try

      BeginUpdate;
      Clear;
      RootKey := HKEY_LOCAL_MACHINE;
      if
 OpenKeyReadOnly(UNINST_PATH) then

      begin

        SubKeys := TStringList.Create;
        try

          GetKeyNames(SubKeys);
          CloseKey;
          for
 i := 0 to
 subKeys.Count - 1 do

            if
 OpenKeyReadOnly(Format('%s%s', [UNINST_PATH, SubKeys[i]])) then

            try

              sDisplayName := ReadString('DisplayName');
              sUninstallString := ReadString('UninstallString');
              if
 sDisplayName <> '' then

              begin

                ListItem := Add;
                ListItem.Caption := sDisplayName;
                ListItem.subitems.Add(sUninstallString);
              end
;
            finally

              CloseKey;
            end
;
        finally

          SubKeys.Free;
        end
;
      end
;
    finally

      ListView1.AlphaSort;
      EndUpdate;
    end
;
  finally

    CloseKey;
    Free;
  end
;
end
;

Другое по теме:

• Добавить ссылку на мой файл в меню Пуск|Документы
• Добавление программы в автозапуск
• Браузер по реестру