获取系统输入闲置时间

 

 

delphi编写指定时间不动鼠标将系统锁定/以及在不动的情况下隐藏鼠标 
3秒种不动鼠标键盘看看效果。
GetLastInputInfo：获取闲置时间;
ShowCursor：设置鼠标状态

 

 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls;

type

  TForm1 = class(TForm)

    Timer1: TTimer;

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  function BlockInput(fFreezeInput : boolean):DWord; stdcall; external 'user32.DLL';

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

var

  vLastInputInfo: TLastInputInfo;

begin

  vLastInputInfo.cbSize := SizeOf(vLastInputInfo);

  GetLastInputInfo(vLastInputInfo);

  if GetTickCount - vLastInputInfo.dwTime > 3000 then

  begin

    ShowCursor(False)//隐藏鼠标

    timer1.Enabled:= false;

    BlockInput(True);

    showmessage('超过3秒，已锁定！');

  end;

end;

end.

 

View Code