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

Блокировка Ctrl Alt Del   Найти похожие ветки 

← →
XiAndr   (2006-06-07 22:04) [0]

Нужно мне было заблокировать, заблокировать - заблокировал, а разблокировать не получается, теперь попасть туда не могу, подскажите, как разблокировать, вот код:


procedure DisableTaskMgr(Disable: Boolean);
var
 reg: TRegistry;
begin
 reg := TRegistry.Create;
 reg.RootKey := HKEY_CURRENT_USER;
 reg.OpenKey("Software", True);
 reg.OpenKey("Microsoft", True);
 reg.OpenKey("Windows", True);
 reg.OpenKey("CurrentVersion", True);
 reg.OpenKey("Policies", True);
 reg.OpenKey("System", True);
 if Disable then
   reg.WriteString("DisableTaskMgr", "1") //áëîêèðåóì
 else
   reg.WriteString("DisableTaskMgr", "0"); //ðàçáëîêèðóåì
 reg.CloseKey;
end;

Вот код блокировки(работает):

DisableTaskMgr(true);

Вот разблокировки(не работает):

DisableTaskMgr(false);

---

← →
Rial ©   (2006-06-07 22:55) [1]

procedure DisableTaskMgr(Disable: Boolean);
Var Reg: TRegistry;
begin
Reg := TRegistry.Create;
Try
 With Reg do
  RootKey := HKEY_CURRENT_USER;
  OpenKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", True);
If (Disable) then WriteInteger("DisableTaskMgr",1)
                else WriteInteger("DisableTaskMgr",0);
 CloseKey;
 end;
Finally
 Reg.Free;
end;
end;

1. Адрес можно писать проще :))
2. А кто объект удалять будет ?
3. При изменении ключей сначала определяй их тип.

---

← →
XiAndr   (2006-06-08 09:25) [2]

Все заработало, спасибо, а как сделать, чтобы вместо сообщения "Диспетчер задач отключен администратором" было что-нибудь другое, а лучше, чтобы вообще ничего не показывалось.

---

← →
Игорь Шевченко ©   (2006-06-08 09:58) [3]

XiAndr   (08.06.06 09:25) [2]

А смысл ?

---

← →
DVM ©   (2006-06-08 10:08) [4]

> XiAndr   (07.06.06 22:04)  

Ты не CAD заблокировал а Диспетчер задач. Это не одно и то же. Не во всех системах после нажатия CAD вызывается диспетчер задач.

---

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

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



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