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

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

Блокировка Ctrl Alt Del [D7, WinXP]

XiAndr ©   (2006-06-07 22:04:00) 

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


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);

---

DVM   (2006-06-08 10:08:00) [1]

> XiAndr   (07.06.06 22:04)  

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

---

Игорь Шевченко   (2006-06-08 09:58:00) [2]

XiAndr   (08.06.06 09:25) [2]

А смысл ?

---

XiAndr   (2006-06-08 09:25:00) [3]

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

---

Rial   (2006-06-07 22:55:00) [4]

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. При изменении ключей сначала определяй их тип.

---

Наверх