|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Delphi 7 работа с реестром
всем привет вообщем есть код:
Код:
var reg: TRegistry; begin reg:=TRegistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True); reg.WriteString('DisableTaskMgr',''); reg.CloseKey; reg.Free; reg:=TRegistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer', True); reg.WriteString('NoViewOnDrive','a'); reg.CloseKey; reg.Free; reg:=TRegistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer', True); reg.WriteString('RestrictRun','a'); reg.CloseKey; reg.Free; reg:=TRegistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.OpenKey('Software\\Microsoft\\Windows\\CurrentVersion\\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\System\DisableCMD', True); reg.WriteString('DisableCMD','a'); reg.CloseKey; reg.Free; reg:=TRegistry.Create; reg.RootKey:=HKEY_CURRENT_USER; reg.OpenKey('software\Microsoft\Windows\CurrentVersion\Policies\system\DisableRegistryTools', True); reg.WriteString('DisableRegistryTools','a'); reg.CloseKey; reg.Free; lmikle: Предупреждение. Оформляйте код с соотв. с правилами форума. но он не работает(данный код разблокирует некоторые функции реестра)в чем ошибка?и как данный код на одну кнопку уместить? Последний раз редактировалось lmikle, 03.05.2014 в 05:22. |
#2
|
||||
|
||||
Пробелов и слешей очень много просто Да, и зачем так грубо использовать бедный TRegistry-то, - шесть раз подряд за цикл выполнять Create..Free, когда можно сделать вот так
Код:
procedure TForm1.Button1Click(Sender: TObject); begin with TRegistry.Create do try RootKey:=HKEY_CURRENT_USER; OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True); WriteString('DisableTaskMgr',''); CloseKey; OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', True); WriteString('NoViewOnDrive','a'); WriteString('RestrictRun','a'); WriteString('NoClose','a'); CloseKey; OpenKey('Software\Policies\Microsoft\Windows\System\DisableCMD', True); WriteString('DisableCMD','a'); CloseKey; OpenKey('software\Microsoft\Windows\CurrentVersion\Policies\system\DisableRegistryTools', True); WriteString('DisableRegistryTools','a'); CloseKey; finally Free; end; {with} end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 03.05.2014 в 09:58. Причина: самоцензура |