Форум: "Основная";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];
Вниз
Блокировка 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 вся ветка
Форум: "Основная";
Текущий архив: 2006.07.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c
