delphi程序屏蔽windows键

参考：https://www.cnblogs.com/keycode/archive/2010/10/16/1853166.html

声明：

    FDInput: IDirectInput8;

    FDInputKeyBoard, FDInputMouse: IDirectInputDevice8;

关键代码：

  DirectInput8Create(HInstance, DIRECTINPUT_VERSION, IID_IDirectInput8, FDInput, nil);
  FDInput.CreateDevice(GUID_SysKeyboard, FDInputKeyBoard, nil);
  FDInputKeyBoard.SetDataFormat(c_dfDIKeyboard);
 // 屏蔽Windows键的关键方法

  FDInputKeyBoard.SetCooperativeLevel(Self.Handle, 

      DISCL_fOREGROUND OR DISCL_NONEXCLUSIVE or DISCL_NOWINKEY);

  FDInputKeyBoard.Acquire;