Delphi程序自动退出

Freeid_shi 2010-01-08 09:55:48

我有一个Delphi+SQL的程序，运行后我希望能做检测用户有没有在操作？
如果一段时间没有操作这个程序就自动退出。
目前想的是放一个计时器，设置一个时间，到了就关闭程序。
现在不知道如何判断操作员有没有操作动作？
哪位教一下，多谢！

...全文

569 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

hjkto 2010-01-09

打赏
举报

[Quote=引用 4 楼 heikeyanxi 的回复:]
完整代码：
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是核心
[/Quote]
不错，虽然有了

梦幻人生 2010-01-09

打赏
举报

學習!

yanele 2010-01-09

打赏
举报

[Quote=引用 4 楼 heikeyanxi 的回复:]
完整代码：
Delphi(Pascal) codefunction StopTime: integer;//返回没有键盘和鼠标事件的时间var
LInput: TLastInputInfo;begin
LInput.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(LInput);
Result := (GetTickCount()- LInput.dwTime)div1000;// 微妙换成秒end;
只要用户动了鼠标或键盘，计数就会重新开始，GetLastInputInfo是核心
[/Quote]

正需要,学习收藏!

huangheguyun 2010-01-09

打赏
举报

学习

kobaer 2010-01-09

打赏
举报

sachuangwei_boy 2010-01-08

打赏
举报

学习

heikeyanxi 2010-01-08

打赏
举报

完整代码：



function StopTime: integer; //返回没有键盘和鼠标事件的时间

var

  LInput: TLastInputInfo;

begin

  LInput.cbSize := SizeOf(TLastInputInfo);

  GetLastInputInfo(LInput);

  Result := (GetTickCount() - LInput.dwTime) div 1000;  // 微妙换成秒

end;



procedure TForm1.Timer1Timer(Sender: TObject);    // Timer 事件

begin

if StopTime >= 60 then

  Showmessage('用户已经1分钟没有动键盘鼠标了！');

end;

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

Freeid_shi 2010-01-08