Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.05.2012, 00:25   #1
hysek
Пользователь
 
Регистрация: 02.05.2012
Сообщений: 32
По умолчанию Вывести в Memo информацию о установленном ПО (на Delphi)

Мне нужно вывести в мемо все программы установленные на компьютере.
Дело в том что код который предлагается на всех сайтах не работает.
Пожалуйста помогите,очень нужно.
а именно не работает:

begin
reg1:=tregistry.Create;
reg1.RootKey:=HKEY_LOCAL_MACHINE;
reg1.OpenKey('HKEY_LOCAL_MACHINE\SO FTWARE\Microsoft\Windows\CurrentVer sion\Unins tall', true);
memo1.text:=(reg1.ReadString('Displ ayName'));
end;
hysek вне форума Ответить с цитированием
Старый 02.05.2012, 00:43   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,434
По умолчанию

думаете дубликат темы вам поможет?


Далее открываете ветку рееста, получаете имена ключей, пробегаетесь по ним и выдергиваете значения. Все.

В помошь стравка по TRegistry.
Человек_Борща вне форума Ответить с цитированием
Старый 02.05.2012, 01:06   #3
hysek
Пользователь
 
Регистрация: 02.05.2012
Сообщений: 32
По умолчанию

я не понимаю как дальше сделать,вот помощи и прошу!
hysek вне форума Ответить с цитированием
Старый 02.05.2012, 02:07   #4
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,430
По умолчанию

Код:
var
  i: integer;
  reg1: tregistry;
  lst: tstringlist;
begin
  memo1.Clear;
  reg1 := tregistry.Create;
  lst := tstringlist.create;
  reg1.RootKey := HKEY_LOCAL_MACHINE;
  reg1.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall', false);
  reg1.GetKeyNames(lst);
  reg1.closekey;
  for i := 0 to lst.count - 1 do
  begin
    reg1.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + lst.Strings[i], FALSE);
    memo1.lines.append(reg1.ReadString('DisplayName'));
    reg1.closekey;
  end;
  reg1.Free;
  lst.Free;
end;
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 02.05.2012, 02:44   #5
GunSmoker
Старожил
 
Регистрация: 13.08.2009
Сообщений: 2,581
По умолчанию

Цитата:
не работает
Как именно не работает - нам предлагается угадать или как? Окей, угадываю: каждый раз, когда ты запускаешь этот код, твой кот выдёргивает шнур монитора.
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
GunSmoker вне форума Ответить с цитированием
Старый 02.05.2012, 10:00   #6
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,899
По умолчанию

Всё работает
Вложения
Тип файла: zip Projects.zip (6.3 Кб, 16 просмотров)
Shouldercannon вне форума Ответить с цитированием
Старый 02.05.2012, 11:20   #7
hysek
Пользователь
 
Регистрация: 02.05.2012
Сообщений: 32
По умолчанию

BDA,Огромное спасибо!!!!
hysek вне форума Ответить с цитированием
Старый 02.05.2012, 12:24   #8
hysek
Пользователь
 
Регистрация: 02.05.2012
Сообщений: 32
По умолчанию Не выводить некоторые поля в Мемо

Как сделать чтоб некоторые записи не выводились в мемо
например эти записи были исключены и не записаны
Безымянный.jpg
hysek вне форума Ответить с цитированием
Старый 02.05.2012, 12:34   #9
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

см предыдущую тему
ну в цикл добавляете условие просто напросто.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 02.05.2012, 12:36   #10
hysek
Пользователь
 
Регистрация: 02.05.2012
Сообщений: 32
По умолчанию

Подскажите пожалуйста,а то в программирование делфи я не очень,а надо сделать!
hysek вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Занести информацию в Memo Анастас Помощь студентам 8 26.10.2011 18:05
Вывести на экран информацию о всех диск windetta35555 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 31.05.2011 20:02
Как вывести информацию при нажатии на ссылку в нужный div ??? 333_org_ua HTML и CSS 1 13.11.2010 13:51
Файлы. Вывести информацию о самой молодой команде vitaly38 Помощь студентам 10 24.02.2010 14:24
Вывести информацию из типизированного файла в combobox... tacer Помощь студентам 1 04.12.2007 11:46