Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
убьем Policies за 7 шагов :) 17.08.02 10:53 Число просмотров: 1138
Автор: :-) <:-)> Статус: Elderman Отредактировано 17.08.02 10:54 Количество правок: 1
|
> Word>Visual basis>tekst dal'sche komonda ne proxodit. > V menya NET "Servis".
Да меню "Сервис" не в Visual Basic, а в Word (надо было переключиться в Word). Или запускать макрос через меню Запуск (F5).
Но все равно правило DisableRegistryTools проверяется не в Explorer, в самом regedit.exe. Так что shell "regedit" не прокатит.
Еще раз пробуем немного по-другому (жахнем ветку HKCU\Software\Microsoft\Windows\CurrentVersion\Policies):
1. Запускаешь Word
2. Нажимаешь Alt+F8 (или через меню Сервис->Макрос->Макросы...)
3. В поле ввода вводишь имя нового макроса, например rr
4. Нажимаешь кнопку "Создать"
5. Попадаешь в Visual Basic, на экране заготовка нового макроса.
6. Редактируешь макрос, чтобы он выглядел так:
Declare Function RegDeleteKey Lib "advapi32" Alias "RegDeleteKeyA" _
(ByVal hKey As Long, ByVal RegDeleteKey As String) As Long
Sub rr()
r = RegDeleteKey(&H80000001, _
"Software\Microsoft\Windows\CurrentVersion\Policies")
If r = 0 Then MsgBox ("Ok") Else MsgBox ("RegDeleteKey: " & r)
End Sub
---
7. Теперь, чтобы запустить макрос, можно либо нажать F5 (меню Запуск->...)
либо переключиться в Word и вызвать окно Макросы через меню Сервис->Макрос->Макросы... (или Alt+F8), и в этом окне нажать кнопку "Выполнить".
|
|
|