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

CODARZ

Дата 11.10.2003, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

Репутация: нет
Всего: нет

Как получить списко установленных программ (ОСь: Виндовс)?

Pakshin A. S.

Дата 11.10.2003, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Если список из "Установки и удалении программ" в Панели инструментов, то я в своей проге делал следующее:

Код


var
 reg:TRegistry;
 i:integer;
 s,o:string;
begin
 Memo1.Lines.Text:='';
 ListBox1.Items.Clear;
 reg:=TRegistry.Create;
 reg.RootKey:=HKEY_LOCAL_MACHINE;
 reg.OpenKeyReadOnly('Software\Microsoft\Windows\CurrentVersion\Uninstall');
 reg.GetKeyNames(Memo1.Lines);
 for i:=0 to MEmo1.Lines.Count-1 do
  begin
   reg.Free;
   reg:=Tregistry.Create;
   reg.RootKey:=HKEY_LOCAL_MACHINE;
   o:=Memo1.Lines.Strings[i];
   reg.OpenKeyReadOnly('Software\Microsoft\Windows\CurrentVersion\Uninstall\' + o);
   s:='';
   if reg.ValueExists('DisplayName')
    then
     s:=reg.ReadString('DisplayName');
   if reg.ValueExists('QuietDisplayName')
    then
     s:=reg.ReadString('QuietDisplayName');
   if s <> ''
    then
     listBox1.Items.Add(s);
  end;
 reg.Free;
end;

Что получилося -> на "моём сайте"

CODARZ

Дата 11.10.2003, 21:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

Репутация: нет
Всего: нет

Цитата(Pakshin @ 11.10.2003, 18:14)

Если список из "Установки и удалении программ
...
Что получилося -> на "моём сайте"

Во-во, пасиб, как-раз то что мне нужно

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »