Блокировка 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]

А смысл ?

> XiAndr (07.06.06 22:04)

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

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