摘要:
1.>>>5秒后提示,但只有一次============================================ procedure TForm1.Timer1Timer(Sender: TObject);var vLastInputInfo: TLastInputInfo;begin vLastInputInfo.cbSize := SizeOf(vLastInputInfo); GetLastInputInfo(vLastInputInfo);if GetTickCount - vLastInputInfo.dwTime > 5000 then begin 阅读全文