Блокирование клавиатуры и мыши

[JTG]

Обожаю варианты типа "сделать таймер на 1 мс..."

[Shuraken]

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

Обожаю варианты типа "сделать таймер на 1 мс..."

Не вопрос:
ApplicationEvents.OnIdle

[UnD)eaD)Snake]

Можно поставить таймер, который прописывает в
HKCR\Software\Microsoft\Windows\Cur rentVersion\Policies\System\
строку DWORD 'DisableTaskMgr' со начением '1';

Можно открыть через TFilestream файл:
C:\Windows\system32\taskmgr.exe

[=LeonZone=]

2 UnD)eaD)Snake
1) Без прав админа доступ в реестр закрыт
2) Не вариант... ТК мне нужно не именно диспетчер блокировать, а окно, которое появляется поле нажатия C-A-D(ну где выход из системы, диспетчер...)

[Nazar601]

unit Proga;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
r: TRect;
pr: PRect;
begin
r.Left:=0;
r.Top:=0;
r.Right:=Screen.Width-1365;
r.Bottom:=Screen.Height-767;
pr:=@r;
ClipCursor(pr);
end;

end.

Програ просто заморозит курсор в верхнем левом углу, но кнопки мышки работают=))

[Али6576]

почему то у меня не получается с таймером....