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;

猜你喜欢

转载自blog.csdn.net/sndayYU/article/details/79827662