[RedCat]

Народ ХЕЕЕЛП Надо срочно заблокировать CTRL-ALT-DEL,ALT-TAB,
WIN-D

[<<D>>]

просто создай на форме ActionControl, добавь несколько Actions, и к каждой из них добавь в горячие клавиши свои сочетания клавишь.

[White_Horse]

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

Народ ХЕЕЕЛП Надо срочно заблокировать CTRL-ALT-DEL,ALT-TAB,
WIN-D

CTRL-ALT-DEL

Код:

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;

[Yurk@]

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

CTRL-ALT-DEL

Код:

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;

Неефективно используемые строчки!
Так намного проще:

Код:

procedure DisableTaskMgr(Disable: Boolean);
var
  reg: TRegistry;
begin
 reg := TRegistry.Create;
 reg.RootKey := HKEY_CURRENT_USER;
 reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\\Policies\System', True);
  if Disable then
    reg.WriteString('DisableTaskMgr', '1') //блокиреум
  else
    reg.WriteString('DisableTaskMgr', '0'); //разблокируем
  reg.CloseKey;
end;

[White_Horse]

Yurk@ ну или так как сделал ты, я просто для примера, а дальше ему решать уже как записать...

[White_Horse]

Не пробовал, отключение ALT-TAB http://www.delphisources.ru/pages/fa...e_alt_tab.html

[RedCat]

Для делфи 5 тоже прокатит????

[White_Horse]

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

Для делфи 5 тоже прокатит????

Ну так ты проверь и узнаешь )