delphi內如何檢測用戶多長時間沒有鼠標與鍵盤操作?

procedure TForm1.Timer1Timer(Sender: TObject);
var
  vLastInputInfo: TLastInputInfo;
begin
  vLastInputInfo.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(vLastInputInfo);
  Caption := Format('用戶已經%d秒沒有動鍵盤鼠標了',
    [(GetTickCount - vLastInputInfo.dwTime) div 1000]);
end;