我用EnableWindows能屏蔽鼠标和键盘的输入,但不能屏蔽掉Windows键(就是Ctrl旁边的那个键,按一下出现开始菜单的那个)的响应,请问怎样才能屏蔽它的响应呢?

解决方案 »

  1.   

    还有Alt+Tab键组合也不能屏蔽掉,有没有办法呢?
      

  2.   

    使用消息处理
    private
       procedure aaaa(var msg:tmessage);message wm_win(这个查一下);

      

  3.   

    sorry
      provate 
        procedure aaa(var msg:tmessage);message wm_keydown;
    ....
        tform1.aaa(var msg:tmessage);
         begin
            if msg.lparam= wm_win then
           ...
         end;
       inherited;
      

  4.   

    // Disable system key.
    procedure TurnSysKeysOff;
    var
      OldVal : LongInt;
    begin
      SystemParametersInfo (97, Word (True), @OldVal, 0)
    end;procedure TurnSysKeysBackOn;
    var
      OldVal : LongInt;
    begin
      SystemParametersInfo (97, Word (False), @OldVal, 0)
    end;