procedure TForm1.Timer1Timer (Sender: TObject); var vLastInputInfo: TLastInputInfo; begin vLastInputInfo.cbSize: = SizeOf (vLastInputInfo); GetLastInputInfo (vLastInputInfo); Caption: = Format ( '% d input interval since the last millisecond', [GetTickCount - VlastInputInfo.dwtime]);
Original posted: Zswang (with water clear) (expert outpatient cleaner)