触摸屏问题

Question

我用delphi做触摸屏程序，设置定时器，怎样监测程序是否空闲？即如果一定时间后无人操作自动回到主窗体，怎样判断无人操作过？

Answer 1

function cursorstoptime:integer;//得到无输入状态的时间，然后你就可以回到主窗口了
var
  linput:tlastinputinfo;
begin
  linput.cbSize:=sizeof(tlastinputinfo);
  getlastinputinfo(linput);
  result:=gettickcount()-linput.dwTime;
end;