有一定难度的问题！

做一黑色窗体覆盖全屏，鼠标隐藏，屏蔽系统键码输入（alt+tab,alt+f4等等），对普通键码做密码识别，符合密码后关闭黑色窗体，恢复正常!

解决方案 »

  1.   

    一个全屏的窗口(top most, no border),并且接管键盘与鼠标消息。
      

  2.   

    类似屏幕保护,只是反之,OnMessage中把鼠标,键盘消息统统吃掉.
    本站点上有屏包的Source
      

  3.   

    yangfan的办法一定行。不过我对这个问题的意图真的很感兴趣，难道真的想
    编一个病毒？
      

  4.   

    既然是已经能知道他非法登录了还这么麻烦干吗!直接把他kill掉不就OK了!
      

  5.   

    我决定采用yangfan的方法，请告诉我如何隐藏鼠标？
      

  6.   

    ShowCursor(False);// hide cursor
    ShowCursor(True);// show Cursor
      

  7.   

    封锁键盘用SystemParametersInfo 函数
    本人倒有一个能够完全满足你要求:'锁定计算机鼠标及键盘，使屏幕黑屏 的Delphi' 程序,先给你演示程序,如要源码,请email to:[email protected]
      

  8.   

    哪位大匣可以告诉我详细的代码来实现屏蔽Alt+F4呢?---------多谢!
      

  9.   

    Form的OnCloseQuery
    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
      CanClose := False;
    end;
      

  10.   

    说明一下:我需要在程序中随时可以屏蔽Alt+F4,同时也可以随时解除对Alt+F4的屏蔽!到底如何实现呢?    希望快些回答,争取在今天结束讨论!
      

  11.   

    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
      if WantQuit then
        CanClose := True
      else 
        CanClose := False;
    end;
    随时可以屏蔽Alt+F4,同时也可以随时解除对Alt+F4的屏蔽,用户如何作,你想如何
    操作,