判断鼠标键盘在一段时间内是否有动作

 

function LastInput:DWord;

var

  LInput:TLastInputInfo;

begin

  LInput.cbSize:=sizeOf(TLastInputInfo);

  GetLastInputInfo(LInput);

  Result:=GetTickCount-LInput.dwTime;

  end;

{调用：} 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

self.Caption:=Format('%d',[(LastInput)div 1000]);

end;