得到鼠标和键盘的空闲时间

var
  t: TLastInputInfo;
begin
  t.cbSize := SizeOf(t);
  GetLastInputInfo(t);
  Label1.Caption := IntToStr(GetTickCount - t.dwTime);  //这里是ms
end;

-------------------------------------无敌分割线----------------------------------------------

type
  PLastInputInfo = ^TLastInputInfo;
  {$EXTERNALSYM tagLASTINPUTINFO}
  tagLASTINPUTINFO = packed record
    cbSize: UINT;
    dwTime: DWORD;
  end;
  TLastInputInfo = tagLASTINPUTINFO;

这些是delphi里声明tagLASTINPUTINFO的代码.