function TFrm_main.LastInput: DWord; //取系统无操作时间
var
LInput: TLastInputInfo;
begin
LInput.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(LInput);
Result := GetTickCount - LInput.dwTime;
end;主窗体timer1控件写:
var
time :word;
beginv
time := self.LastInput;
if time > timer1.Interval then
begin
ShowWindow(Frm_main.Handle,SW_HIDE);
Frm_login.Visible := true;
end;我这里可以实现了,但是在2000下能用,98下不能用 ,因为GetLastInputInfo这个api不能用,请教大家怎么解决,得结果立即给分,在线等.谢谢!
var
LInput: TLastInputInfo;
begin
LInput.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(LInput);
Result := GetTickCount - LInput.dwTime;
end;主窗体timer1控件写:
var
time :word;
beginv
time := self.LastInput;
if time > timer1.Interval then
begin
ShowWindow(Frm_main.Handle,SW_HIDE);
Frm_login.Visible := true;
end;我这里可以实现了,但是在2000下能用,98下不能用 ,因为GetLastInputInfo这个api不能用,请教大家怎么解决,得结果立即给分,在线等.谢谢!
解决方案 »
- TreeView关于复选框
- 对数据库的操作哪种方法比较好?
- 如何实现程序的暂停??
- 编译时报错如下,是什么原因,应该怎么解决呢??
- 如果获得一个对象的可访问的所有属性
- 我又发现一个奇怪的问题,缓存更新中,记录已经applyupdates,提交了。这个记录怎么能 cancdlupdates, 回到修改前的样了,不过记录还在数
- 各位,帮助一下,如何设置SOCKET通信中(多线程模式下) 接收缓冲区大小
- 关于在摄像视频的问题,高手帮帮!
- 请教高手,关于网络打印机问题
- 有什么办法可以将StringGrid表格里的数据一次性的写入到数据库中
- 在设计工资系统时,怎样解决第13,14,15个月工资?按次数发放工资?年/月补发工资?
- 可以将多线程写进DLL吗?
用2个TIMER,设置三分钟
然后开始判断鼠标位置(用鼠标位置来判断是否操作,应该可以)TIMER检测鼠标位置跟上一次鼠标位置不一样,则触发你的事件