Delphi 检测键盘鼠标动作

procedure TfrmMain.Timer_LockTimer(Sender: TObject);
var
  vLastInputInfo: TLastInputInfo;
  min: Int64;
begin
  TTimer(Sender).Enabled := False;
  try
    if gGlobal.APauseByUser then
      Exit;
    vLastInputInfo.cbSize := SizeOf(TLastInputInfo);
    GetLastInputInfo(vLastInputInfo);

    min := (GetTickCount - vLastInputInfo.dwTime) div 60000;
    if min > 0 then
      PauseGNSS;

    //Caption := Format('用户已经%d秒没有动键盘鼠标了',
    //  [(GetTickCount - vLastInputInfo.dwTime) div 1000]);
  finally
    TTimer(Sender).Enabled := True;
  end;
end;