易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi程序自动退出

我有一个Delphi+SQL的程序，运行后我希望能做检测用户有没有在操作？
如果一段时间没有操作这个程序就自动退出。
目前想的是放一个计时器，设置一个时间，到了就关闭程序。
现在不知道如何判断操作员有没有操作动作？
哪位教一下，多谢！
判断鼠标或是键盘长时间没有操作，就象屏保一样
用一个TIMER设一个时间，到了时间就退出
当有鼠标或者键盘操作时，TIMER重新计时就行了
这是一个方法，还有没有更直接的
如果在操作计算机，没有在程序里有动作的情况。

引用
完整代码：
Delphi(Pascal) codefunction StopTime: integer;//返回没有键盘和鼠标事件的时间var
  LInput: TLastInputInfo;begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := (GetTickCount()- LInput.dwTime)div1000;// 微妙换成秒end;procedure TForm1.Timer1Timer(Sender: TObject);// Timer 事件beginif StopTime>=60then
  Showmessage('用户已经1分钟没有动键盘鼠标了！');end;

只要用户动了鼠标或键盘，计数就会重新开始，GetLastInputInfo是核心


这个好，谢谢，收下了。
引用
完整代码：
Delphi(Pascal) codefunction StopTime: integer;//返回没有键盘和鼠标事件的时间var
  LInput: TLastInputInfo;begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := (GetTickCount()- LInput.dwTime)div100


相关问答：

DELPHI这种情况怎么办？ - Delphi / Windows SDK/API

就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......

delphi 本地装载驱动 - Delphi / Windows SDK/API

delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......

Delphi进销存盘点维护 盘盈亏功能

想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，

楼上正解,正数盘盈 负数盘亏

一楼正确！

谢谢各位啦

就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号