2013年3月8日
获取系统闲置时间
摘要： 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:='检测... 阅读全文
posted @ 2013-03-08 17:08 lobtao 阅读(417) 评论(0) 推荐(0)