获取系统闲置时间

procedure TForm1.Timer1Timer(Sender: TObject);
var
IsInput: TLastInputInfo;
begin
IsInput.cbSize := SizeOf(IsInput);
GetLastInputInfo(IsInput);
if GetTickCount - IsInput.dwTime > 5000 then //
begin
Label1.Caption:='已经5秒没有动静了';
// 自动退出账号登录
end
else
begin
Label1.Caption:='检测到鼠标或键盘有动作（情况）';
end;
end;