1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

library KeyboardHook;

uses 
  Windows, 
  SysUtils, 
  Classes; 

{$R *.res} 

type 
  TKeybDLLHookStruct = packed record 
    vkCode: integer; 
    scanCode: integer; 
    flags: integer; 
    time: integer; 
    dwExtraInfo: integer; 
  end; 
  PKeybDLLHookStruct = ^TKeybDLLHookStruct; 

const 
  WH_KEYBOARD_LL = 13; 

var 
  hKeyHook: THandle; 


function KeyboardProc_LowLevel(code: integer; wParam,   lParam: Integer): integer; stdcall; 
var 
  P: PKeybDLLHookStruct; 
  KeyDown: Boolean; 
begin 
  if Code < 0 then 
    result := CallNextHookEx(hKeyHook, Code, wParam, lParam) 
  else 
  begin 
    P := Pointer(lParam); 
    KeyDown := P^.flags = 0; 

    if KeyDown and (P^.vkCode = VK_RWIN) and
      Bool($8000 and GetAsyncKeyState(VK_LWIN)) then
      result := HC_SKIP
    else result := CallNextHookEx(hKeyHook, Code, wParam, lParam); 

  end; 
end;

procedure StartHook; 
begin 
  hKeyHook := SetWindowsHookEx(WH_KEYBOARD_LL, KeyboardProc_LowLevel, HInstance, 0); 
end; 

procedure StopHook; 
begin 
  UnhookWindowsHookEx(hKeyHook); 
end; 

exports 
  StartHook, 
  StopHook; 
  
begin 
end.					

1:
2:
3:
4:

     if KeyDown and (P^.vkCode = VK_RWIN) or
      Bool($8000 and GetAsyncKeyState(VK_LWIN)) then
      result := HC_SKIP
    else result := CallNextHookEx(hKeyHook, Code, wParam, lParam);					

1:
2:
3:
4:

     
if KeyDown and (P^.vkCode = VK_NUMPAD0) then  
result := HC_SKIP  
else result := CallNextHookEx(hKeyHook, Code, wParam, lParam);					

1:
2:
3:

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0); //Turn Off Crtl+alt+del 

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0); //Turn On Crtl+alt+del					

1:
2:
3:
4:
5:
6:

...
KeyDown := P^.flags = 1;

    if KeyDown and (P^.vkCode = VK_LWIN) then
      result := HC_SKIP
...