怎样得出用户多久没有鼠标和键盘动作？？

[ddsft]

怎样得出用户多久没有鼠标和键盘动作？？

[紫去秋来]

使用BCB5,6自带的控件TApplicationEvents，它有一个事件，当有鼠标或键盘动作，就会进入该事件，下面就不用我教你了吧？

[紫去秋来]

这个事件是OnMessage,该控件在Additional页，建议用BCB5，不要用BCB6，因为6有时会出莫名其妙的问题，可以令人疯掉。

[penu]

还得加个定时器。

[yyfzy]

我是这样实现的，已经测试。
原理：
使用消息影射，捕捉WM_NCHITTEST和WM_KEYDOWN消息，记下有这样的消息的时间，然后用Timer检查当前时间和记录时间的差值。

实现：
头文件，加上消息函数、全局变量和影射定义
private:
TDateTime LastTime;//最后一次活动时间
void __fastcall MessageHalder(TMessage & Msg);；//消息函数
protected:
BEGIN_MESSAGE_MAP //影射
VCL_MESSAGE_HANDLER(WM_MOUSEMOVE|WM_KEYDOWN, TMessage, MessageHalder)
END_MESSAGE_MAP(TControl)


实现文件：
#include <DateUtils.hpp>


void __fastcall TForm1::FormCreate(TObject *Sender)
{
LastTime=Now();//默认最后活动时间
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MessageHalder(TMessage & Msg)
{
LastTime=Now(); //最新后动时间
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
static int i=0;
Edit1->TextMinutesBetween(LastTime,Now());//已经有多少分钟没有反映
i++;
}
//---------------------------------------------------------------------------
你自己试试，不知道能不能满足你的要求

[ddsft]

Edit1->TextMinutesBetween(LastTime,Now());//这一行是什么意思？

其中：TextMinutesBetween是什么意思？

[GaoLun]

Edit1->Text=MinutesBetween(LastTime,Now());

应该是笔误