易截截图软件、单文件、免安装、纯绿色、仅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如何调用dll文件中的exe

请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？


无人回答？

做成资源� ......

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

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

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

一楼正确！

谢谢各位啦

就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......

delphi 进销存时入库数量和出库数量间的关系

我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......

delphi activx 的问题 110分

我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现 
[错误] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[错误] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号