VPF::TRegistry. Работа с реестром Windows в Delphi.

agent13

Дата 11.2.2009, 19:36 (ссылка)

(голосов:2)

Загрузка ...

Новичок

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

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

Да плохо, ничего не понятно.
надо внести вот этот ключь.
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
"DisableRegistryTools"=dword:0

как это сделать в дельфи я так и непонял. Я вэтом деле только учусь.

THandle

Дата 11.2.2009, 22:44 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Цитата(agent13 @ 11.2.2009, 19:36

)

Да плохо, ничего не понятно.

Спасибо. Могу только посоветовать почитать книгу для новичков smile

Весь нужный Вам код в данной статье есть.
Ну могу дать конкретно...

Код


uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', true);
    WriteInteger('DisableRegistryTools', 0);
  finally
    Free;
  end;
end;

Erazer

Дата 19.4.2009, 20:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

Достала 1 проблема и никак не могу найди объяснения и как следствие решения.

Код


 Reg := TRegistry.Create;
    try
      Reg.RootKey := Key;
      if Reg.OpenKey('Software\Mysoft\Myprogram', False) then
      begin
          DestPath := Reg.ReadString('DestinationPath');      
     end;
    finally
      Reg.CloseKey;
      Reg.Free;
    end;

Этот код выполянется в OnCreate формы,если запустить 1 экземпляр все работает, но если не закрывать его и запустить второй, то получаю пустую строку, не могу понять в чем дело :-(

Это сообщение отредактировал(а) Erazer - 20.4.2009, 11:22

Erazer

Дата 20.4.2009, 01:37 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

не помогают даже

Код


Reg := TRegistry.Create(KEY_READ);//только чтение
    try
      Reg.RootKey := Key;
      if Reg.OpenKeyReadOnly

Данкинг

Дата 20.4.2009, 01:55 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Зачем в этой теме пишешь? Создай свою. И непонятно, что там второй try вообще делает.

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

There's nothing left but silent epitaphs.

Erazer

Дата 20.4.2009, 11:23 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

все писали и ниче.. зачем плодить новые темы?

THandle

Дата 20.4.2009, 15:05 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Erazer, для каждого вопроса должна создаваться новая тема.

Эту я закрываю, так как очень много раз её поднимают... Если увидите вдруг неточности в статье - пишите в ПМ.

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