| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Что именно делает Windows если отключить этот параметр? [D2005, NT4, 2000, XP, 2003]

Tujh ©   (2007-01-16 17:48:00) 

{------------------- Отключить слежение Windows за пользователем --------------}
procedure TForm1.CheckBox1Click(Sender: TObject);
var Reg: Tregistry;
begin
 Reg:=Tregistry.Create;
 Reg.RootKey:=HKEY_CURRENT_USER;
 Case CheckBox1.State of
   cbUnchecked : begin
      try
     if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',false ) then
       Reg.WriteInteger('NoInstrumentation',0);
       Reg.CloseKey;
       finally Reg.free; end;
     end;
   cbChecked : begin
      try
     if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',false ) then
       Reg.WriteInteger('NoInstrumentation',1);
       Reg.CloseKey;
       finally Reg.free; end;
     end;
  end;
end;

---

Tujh   (2007-01-16 18:33:00) [1]

Писал утилитку для себя примени этот параметр, как мне казалось, что бы из сети не могли просматривать ресурсы, После вообще запретился любой доступ к локальным ресурсам, даже явно назначал группы - все равно закрылись все права доступа, даже к своим папкам которые сам же иназначил для  общего доступа. Каким еще программным способом через  делфи можно разрешить доступ?

{----------- Запретить анонимным пользователям просматривать ресурсы ----------}
procedure TForm1.CheckBox6Click(Sender: TObject);
var Reg: Tregistry;
begin
 Reg:=Tregistry.Create;
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 Case CheckBox6.State of
 cbUnchecked : begin
      try
     if Reg.OpenKey('\SYSTEM\CurrentControlSet\Control\Lsa',false) then
       Reg.WriteInteger('RestrictAnonymous',0);
       Reg.CloseKey;
       finally Reg.free; end;
     end;
 cbChecked : begin
      try
     if Reg.OpenKey('\SYSTEM\CurrentControlSet\Control\Lsa',false) then
       Reg.WriteInteger('RestrictAnonymous',1);
       Reg.CloseKey;
       finally Reg.free; end;
     end;
  end;
end;

---

stone   (2007-01-16 17:54:00) [2]

>  Что именно делает Windows если отключить этот параметр?
>  [D2005, NT4, 2000, XP, 2003]
>
> Tujh   (16.01.07 17:48)

Ты их раскусил :)

---

Array   (2007-01-16 17:53:00) [3]

> Игорь Шевченко ©   (16.01.07 17:52) [1]

((( блин, опоздал

---

Игорь Шевченко   (2007-01-16 17:52:00) [4]

"Disables user tracking.

A value of 1 prevents the system from tracking the programs users run, the paths they navigate, and the documents they open. The system uses this information to customize Windows features. As a result, the system disables customized menus and other features that require user tracking information."

http://www.microsoft.com/technet/prodtechnol/windows2000serv/reskit/regentry/93173.mspx?mfr=true

---

Array   (2007-01-16 17:52:00) [5]

http://www.microsoft.com/technet/prodtechnol/windows2000serv/reskit/regentry/93173.mspx?mfr=true

---

Наверх