Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.23;
Скачать: 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 вся ветка

Текущий архив: 2006.07.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
2-1151772639
rll-progr
2006-07-01 20:50
2006.07.23
Работа с ini файлами


2-1151955885
ronyn
2006-07-03 23:44
2006.07.23
IP+-


4-1140560590
std
2006-02-22 01:23
2006.07.23
Сканер штрих кода


15-1151067536
Ламот
2006-06-23 16:58
2006.07.23
Понимаю что не в тему, но все же


15-1151340491
ZeFiR
2006-06-26 20:48
2006.07.23
TFlashPlayerControl