Как можно заблокировать ситемные клавиши

[monrus]

Создаю  для себя прогу-скринлокер, которая должна блокировать ALT+CTRL+DEL, CTRL+F4, SHIFT+CTRL+ESC и пр.
Как это все организовать в ХР?

[MS]

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;
/// это на ALT+CTRL+DEL

[MS]

Вот еще, может пригодится.

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Блокировка/Разблокировка системы.

Модуль LockSys. Блокировка/Разблокировка системы.
Метод блокировки: блокируется (по-выбору) клавиатура и мышь,
системные комбинации клавиш, или всё вместе.
БЛОКИРОВКА СИСТЕМЫ: function LockSystem(LockMode:TLockMode):Boolean;
Возможные значения параметра LockMode:
lmInput - блокировка мыши и клавитатуры
lmSystemKeys - блокировка системных комбинаций клавиш
lmBoth = lmInput + lmSystemKeys
В случае успеха функция возвращает True, иначе - False

РАЗБЛОКИРОВКА СИСТЕМЫ: function UnLockSystem(UnLockMode:TLockMode):Boolean;
Входные параметры аналогичны функции LockSystem, но только
речь в данном случае идёт о разблокировке.
В случае успеха - True, иначе - False.
===============================================

unit LockSys;

interface
uses
  Windows;

type
  TLockMode = (lmInput, lmSystemKeys, lmBoth);

function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean;
function LockSystem(LockMode: TLockMode): Boolean;
function UnLockSystem(UnLockMode: TLockMode): Boolean;

var
  xBlockInput: function(Block: BOOL): BOOL; stdcall;

implementation

function FuncAvail(_dllname, _funcname: string; var _p: pointer): boolean;
var
  _lib: tHandle;
begin
  Result := false;
  _p := nil;
  if LoadLibrary(PChar(_dllname)) = 0 then
    exit;
  _lib := GetModuleHandle(PChar(_dllname));
  if _lib <> 0 then
  begin
    _p := GetProcAddress(_lib, PChar(_funcname));
    if _p <> nil then
      Result := true;
  end;
end;

function LockSystem(LockMode: TLockMode): Boolean;
begin
  Result := False;

  if LockMode = lmSystemKeys then //Locking system
    if not SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, nil, 0) then
      Exit;

  if LockMode = lmInput then //locking keyb and mouse
    if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) then
      xBlockInput(true)
    else
      Exit;

  if LockMode = lmBoth then
  begin
    if not SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, nil, 0) then
      Exit;
    if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) then
      xBlockInput(true)
    else
      Exit;
  end;

  Result := True;
end;

function UnLockSystem(UnLockMode: TLockMode): Boolean;
begin
  Result := False;

  if UnLockMode = lmSystemKeys then //UnLocking system
    if not SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil, 0) then
      Exit;

  if UnLockMode = lmInput then //unlocking keyb and mouse
    if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) then
      xBlockInput(false)
    else
      Exit;

  if UnLockMode = lmBoth then
  begin
    if not SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil, 0) then
      Exit;
    if FuncAvail('USER32.DLL', 'BlockInput', @xBlockInput) then
      xBlockInput(false)
    else
      Exit;
  end;

  Result := True;
end;

end.
Пример использования:

LockSystem(lmBoth); // Блокировка всей системы
UnLockSystem(lmInput); // Разблокировка клавы и мыши

[DemonicAlligator]

Могу порекомендовать http://www.codeproject.com/useritems/GINA_SPY.asp

[Finch]

Эта библиотека наверно настолько достала Microsoft, что тут http://msdn2.microsoft.com/en-us/library/aa380543.aspx
есть такое примечание

Note   GINA DLLs are ignored in Windows Vista.

[x77]

#define BUGS=OFF

, ггг, багоделы, млин.

[monrus]

MS, я пробовал твои примеры. По первому блокируется диспетчер задач, но обратно не разблокируется. Приходится удалять эту ветку реестра. Плюс выходит окно, что заблокировано админом.
По второму примеру ниче не выходит. Т.е. системные клавиши не блокируются. Может из-за ХР.
Gina тоже не подходит, т.к. нужно че-то прописывать в реестр. и пр.

Может есть еще какие-нить варианты?
Ты не знаешь, х77?

[x77]

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

вторая - перехват NtQuerySystemInformation, через которую винда получает инфу о твоём процессе. при желании можно сделать так, твой процесс просто не будет виден. Ctrl+Alt+Del сработает как обычно, но вот твоя прога - в нём будет не видна.

я думаю, имеет смысл прогуляться на http://drkb.ru/

[x77]

в любом случае, под XP все телодвижения должны увязываться на Authority и Security дескрипторы, я не думаю, что подобная задача решается банальным писанием в реестр. если комп загрузит юзер с ограниченными правами, он просто не сможет таким вот образом заблокировать ТаскБар, это у тебя прокатило только потому, что ты на своей тачке админ

[monrus]

Так я под свою тачку пишу. Мне без разницы будет моя прога видна или нет.
Я подумал - может по таймеру отлавливать появление диспетчера задач и прочие и закрывать их.
В любом случае хуки надо написать.
Пока тема не закрыта

[x77]

попробуй свою прогу назначить шелом. я не знаю, как это будет в ХР, а в 9х - эффект получался поразительный. не работало вообще нифига кроме того, конечно, что умела сама твоя прога.

[monrus]