VPF::Чтение из реестра по списку путей

alligator

Дата 21.9.2008, 13:53 (ссылка)

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

Загрузка ...

Опытный

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

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

Список путей просто будет, а удалять хочу сделать по нажатии на delete
Хочу реализовать программу для удаления ключей реестра из заранее извесных путей, а интерфейс у программы потипу autoruns от sysinternals.com

Это сообщение отредактировал(а) alligator - 21.9.2008, 13:54

--------------------

Мои ресурсы:
Студенты мгапи тут!
Модные стулья здесь!
Эксклюзивные сувениры подарки.

BaD_SeCt0R

Дата 21.9.2008, 14:46 (ссылка)

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

Загрузка ...

Lazy Coder

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

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

1. Кинь на форму лисбокс
2. Выстави MultiSelect в true
3. Создай обработчик типа

Код


procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Reg: TRegistry;
  S: TStringList;
  Path: string;
  i:integer;
begin
  Path := 'Software';

  if Key = vk_DELETE then
    begin
     if ListBox1.Count = 0 then exit;
     Reg:= TRegistry.Create;
     for i:=0 to ListBox1.Count-1 do
      if ListBox1.Selected[i] then
       begin
         Reg.RootKey :=HKEY_LOCAL_MACHINE;
         Reg.DeleteKey(Path+'\'+ListBox1.Items.Strings[i]);
       end;
     ListBox1.DeleteSelected;
     Reg.Free;
    end;

  if Key = vk_F5 then
    begin
      Reg:= TRegistry.Create;
      S:= TStringList.Create;
      Reg.RootKey :=HKEY_LOCAL_MACHINE;
      Reg.OpenKeyReadOnly(Path);
      Reg.GetKeyNames(S);
      Reg.CloseKey;

      ListBox1.Items.Assign(S);

      S.Free;
      Reg.Free;
    end;
end;

На F5 - обновляет список, на Delete убивает выделенные пункты.

Добавлено через 1 минуту и 12 секунд
ЗЫ: Path выставляй, какой тебе надо

--------------------

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

alligator

Дата 21.9.2008, 15:07 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо буду разбираться!

--------------------

Мои ресурсы:
Студенты мгапи тут!
Модные стулья здесь!
Эксклюзивные сувениры подарки.

alligator

Дата 1.10.2008, 03:24 (ссылка)

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

Загрузка ...

Опытный

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

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

Поковырялся я с программой, реализовал поиск нужных значений, но столкнулся с проблемой что програмно удалить ключ из выше указаных веток не получается только если вручную и то надо ставить права на каждую ветку, подскажите пожалуйста как можно реализовать чтобы програмно можно было удалять необходимые ключи???

--------------------

Мои ресурсы:
Студенты мгапи тут!
Модные стулья здесь!
Эксклюзивные сувениры подарки.

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