Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 02.05.2014, 15:54   #1
phonex
 
Регистрация: 01.05.2014
Сообщений: 9
Репутация: 9
По умолчанию Delphi 7 работа с реестром

всем привет вообщем есть код:
Код:
var
reg: TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System', True);
reg.WriteString('DisableTaskMgr','');
reg.CloseKey;
reg.Free;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\\Microsoft\\Windows\\Current Version\\Policies\\Explorer', True);
reg.WriteString('NoViewOnDrive','a');
reg.CloseKey;
reg.Free;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\\Microsoft\\Windows\\Current Version\\Policies\\Explorer', True);
reg.WriteString('RestrictRun','a');
reg.CloseKey;
reg.Free;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\\Microsoft\\Windows\\Current Version\\Policies\\Explorer', True);
reg.WriteString('NoClose','a');
reg.CloseKey;
reg.Free;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Policies\Microsoft\Windows\S ystem\DisableCMD', True);
reg.WriteString('DisableCMD','a');
reg.CloseKey;
reg.Free;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('software\Microsoft\Windows\CurrentVer sion\Policies\system\DisableRegistryTools', True);
reg.WriteString('DisableRegistryTools','a');
reg.CloseKey;
reg.Free;
но он не работает(данный код разблокирует некоторые функции реестра)в чем ошибка?и как данный код на одну кнопку уместить?



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 02.05.2014 в 16:03.
phonex вне форума   Ответить с цитированием
Старый 02.05.2014, 16:29   #2
nikcpp
Пользователь
 
Регистрация: 05.04.2011
Сообщений: 35
Репутация: 0
По умолчанию

Обрати внимание на правильность написания путей к веткам

CurrentVersion - должно быть так без всяких пробелов
System - должно быть так без всяких пробелов
nikcpp вне форума   Ответить с цитированием
Старый 02.05.2014, 16:34   #3
phonex
 
Регистрация: 01.05.2014
Сообщений: 9
Репутация: 9
По умолчанию

Цитата:
Сообщение от nikcpp Посмотреть сообщение
Обрати внимание на правильность написания путей к веткам

CurrentVersion - должно быть так без всяких пробелов
System - должно быть так без всяких пробелов
исправил не работает(((
phonex вне форума   Ответить с цитированием
Старый 02.05.2014, 22:15   #4
nikcpp
Пользователь
 
Регистрация: 05.04.2011
Сообщений: 35
Репутация: 0
По умолчанию

как именно не работает, ошибки какие то или что то еще???
nikcpp вне форума   Ответить с цитированием
Старый 02.05.2014, 22:17   #5
WeezyWayne
Пользователь
 
Регистрация: 26.04.2014
Сообщений: 26
Репутация: 10
По умолчанию

Цитата:
Сообщение от phonex Посмотреть сообщение
всем привет вообщем есть код:
Код:
var
reg: TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\System', True);
reg.WriteString('DisableTaskMgr','');
reg.CloseKey;
reg.Free;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\\Microsoft\\Windows\\Current Version\\Policies\\Explorer', True);
reg.WriteString('NoViewOnDrive','a');
reg.CloseKey;
reg.Free;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\\Microsoft\\Windows\\Current Version\\Policies\\Explorer', True);
reg.WriteString('RestrictRun','a');
reg.CloseKey;
reg.Free;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\\Microsoft\\Windows\\Current Version\\Policies\\Explorer', True);
reg.WriteString('NoClose','a');
reg.CloseKey;
reg.Free;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Policies\Microsoft\Windows\S ystem\DisableCMD', True);
reg.WriteString('DisableCMD','a');
reg.CloseKey;
reg.Free;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('software\Microsoft\Windows\CurrentVer sion\Policies\system\DisableRegistryTools', True);
reg.WriteString('DisableRegistryTools','a');
reg.CloseKey;
reg.Free;
но он не работает(данный код разблокирует некоторые функции реестра)в чем ошибка?и как данный код на одну кнопку уместить?



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.
Не буду говорить что шарю, но пробелы и двойные слеши так и должны быть ?
Да и правка реестра требует прав администратора.

Последний раз редактировалось WeezyWayne; 02.05.2014 в 22:21.
WeezyWayne вне форума   Ответить с цитированием
Старый 03.05.2014, 02:02   #6
northener
ПШП
Профессионал
 
Регистрация: 15.07.2013
Сообщений: 1,567
Репутация: 508
По умолчанию

Цитата:
Да и правка реестра требует прав администратора.
Только не в разделе HKEY_CURRENT_USER.
northener вне форума   Ответить с цитированием
Старый 03.05.2014, 12:09   #7
denis76560
Форумчанин
 
Регистрация: 13.01.2010
Сообщений: 121
Репутация: 35
По умолчанию

Если модуль registry в USES подключен должно работать.
Хотя недавно обнаружил что это зависит еще и от операционной системы.
У меня после переустановки на win7 64x без напильника не обошлось.
Пишите описание ошибки, и при каких обстоятельствах.
denis76560 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с реестром alexey_kip Win Api 2 16.03.2013 00:18
работа с реестром world12_tk Помощь студентам 0 04.10.2011 23:39
Работа с реестром в Delphi Oleg Romanchuk Общие вопросы Delphi 10 02.08.2010 01:41
[Delphi] Работа с реестром несколько раз (с помощью одной переменной) zotox Помощь студентам 2 26.08.2009 00:58
работа с реестром. kozei Win Api 6 17.07.2007 13:31


13:53.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.