Скачать: CL | DM;

Что именно делает Windows если отключить этот параметр?   Найти похожие ветки 

← →
Tujh   (2007-01-16 17:48) [0]

{------------------- Отключить слежение 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;

---

← →
Игорь Шевченко ©   (2007-01-16 17:52) [1]

"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) [2]

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

---

← →
Array ©   (2007-01-16 17:53) [3]

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

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

---

← →
stone ©   (2007-01-16 17:54) [4]

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

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

---

← →
Tujh   (2007-01-16 18:33) [5]

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

{----------- Запретить анонимным пользователям просматривать ресурсы ----------}
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.034 c