Как запретить Ctrl-Alt-Del?

[CyberGenus]

ну код писать не буду
а вобще почитай тут...

[Marsel737]

Сообщение от W0LF

таймер + интервал 10 + sendmessage + wm_close + handle окна диспечтера

Сообщение от expert.delphi.int.ru/question/976/

Следует учесть, что в силу специфики реализации стандартного аппаратного таймера ibm-совместимого компьютера минимальный реально достижимый интервал отсчета времени не может быть меньше 55 мс (этот интервал называется тиком), более того, любой интервал времени, отсчитываемый с помощью таймера, всегда кратен 55 мс.

Это я так, для информации озвучил

[DeDoK]

reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
Reg.WriteString('Logon',Application.ExeName);
  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 true then
  reg.WriteString('DisableTaskMgr', '1');
  reg.CloseKey;
  reg.Free;
end;

для снятия

 RegDeleteKey(HKEY_CURRENT_USER,'Software\Microsoft\Windows\CurrentVersion\Policies\System');

незабываем ставить плюс)

[CraftR14]

Сообщение от DeDoK

reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
Reg.WriteString('Logon',Application.ExeName);
  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 true then
  reg.WriteString('DisableTaskMgr', '1');
  reg.CloseKey;
  reg.Free;
end;

для снятия

 RegDeleteKey(HKEY_CURRENT_USER,'Software\Microsoft\Windows\CurrentVersion\Policies\System');

незабываем ставить плюс)

У мну проще))))

uses registry

var 

Reg:TRegistry;
{Кааойто код}
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);
Reg.WriteInteger('DisableTaskMgr', 1);
Reg.CloseKey;
Reg.Free;
end;

И более понятно)))))

Не ставьте ему плюсик))) Ставьте МНУ))

[MMM_Corp]

через хуки, но в NT-виндах такой фокус не проканает ну и правильно...

а если нужно отключить просто диспетчер задач, то это делается через назначение прав, погуглите легко найдетё

[marina15056]

а я просто открываю файл при запуске проги

FileOpen('C:\WINDOWS\system32\taskmgr.exe',OF_SHARE_EXCLUSIVE);

и пока прога не закончится, менеджер не покажется

[Kottik]

Сообщение от marina15056

FileOpen('C:\WINDOWS\system32\taskmgr.exe',OF_SHARE_EXCLUSIVE);

и пока прога не закончится, менеджер не покажется

В W7 у меня не сработало.

[CraftR14]

Сообщение от Kottik

В W7 у меня не сработало.

Порви и выкинь.

[marina15056]

Сообщение от Kottik

В W7 у меня не сработало.

может нужно иной путь прописать, или они уже предусмотрели это и исправили. А мне этого хватает с головой. Просто мои проги сделаны для собственных определенных целей и я знаю на каких компьютерах она будет использована.

З.Ы.: Вот мне бы еще как-нибудь кнопку виндос отключить. Всерьез подумываю, что бы их заблокировать прямо на клавиатуре, что бы не мучиться долго )))

[Kotofff]

Сообщение от CraftR14

Порви и выкинь.

Мнение о системе или подходе типа этого здесь никого не интересует !!!

Сообщение от marina15056

может нужно иной путь прописать....

Дело не у пути, дело в том, что система Win7 так просто с системными файлами работать не даст.

Код приведенный CraftR14 работает во всех системах :

uses registry
...
var 
  Reg:TRegistry;
...
...
begin
Reg:=TRegIniFile.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);
Reg.WriteInteger('DisableTaskMgr', 1); // 0 - для включения
Reg.CloseKey;
Reg.Free;
end;