怎么检测用户多长时间没有鼠标与键盘操做

怎么检测用户多长时间没有鼠标与键盘操做

如何检测用户多长时间没有鼠标与键盘操做?
如何检测用户多长时间没有鼠标与键盘操做?   就像屏保同样.  

个人程序要实现用户在设定的时间内没有操做,就自动锁定程序.

------解决方案--------------------
用键盘和鼠标钩子就好了！
------解决方案--------------------
赞成楼上
------解决方案--------------------
procedure TForm1.Timer1Timer(Sender: TObject);
var
vLastInputInfo: TLastInputInfo;
begin
vLastInputInfo.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(vLastInputInfo);
Caption := Format( '用户已经%d秒没有动键盘鼠标了 ',
[(GetTickCount - vLastInputInfo.dwTime) div 1000]);
end;

------解决方案--------------------
小弟佩服！
------解决方案--------------------
mark
------解决方案--------------------
我想大概的思路是看鼠标和键盘有没有发出移动和按下的事件消息吧..

你查查看能不能消息来处理这样的事件....
------解决方案--------------------
注意GetLastInputInfo在Win2000之后才有。
------解决方案--------------------
var
Form1: TForm1;
RecordHook: HHOOK; // 钩子句柄
Timer: Integer = 0; // 累计时间, 秒为单位
State: Boolean = TRUE; // 是否 '在线 '
//=========
Msg: TMsg;
WndClass: TWndClass;
HMainWnd: HWND;
implementation

{$R *.dfm}
// 窗体函数
function WindowProc(hWnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
MousePos: TPoint; // 鼠标位置
begin
case (uMsg) of
WM_TIMER:
if (State = TRUE) then
begin
Inc(Timer);
if (Timer > = 5) then // 超过5秒认为离开
begin
State := FALSE;
form1.Button1.Caption:= '离开了 ';
end;
end;
end;
Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
end;

// 钩子函数
function JournalRecordProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
Msg: LongWord;
begin
if (nCode = HC_ACTION) then // lParam 指向消息结构
begin
Msg := PEventMsg(lParam)^.message;
if ( (Msg > = WM_KEYFIRST) and (Msg <= WM_KEYLAST) ) or // 键盘消息
( (Msg > = WM_MOUSEFIRST) and (Msg <= WM_MOUSELAST) ) then // 鼠标消息
begin
Timer := 0;
if (State = FALSE) then // '离开 ' -> '在线 '
begin
State := TRUE;
form1.Button1.Caption:= '回来了 ';
end;
end;
end;
Result := CallNextHookEx(RecordHook, nCode, wParam, lParam); // 下一个钩子
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// 卸载钩子
UnHookWindowsHookEx(RecordHook);
// 删除时钟
KillTimer(HMainWnd, 6);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
// 安装时钟
SetTimer(HMainWnd, 6, 1000, nil);

// 安装钩子
RecordHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalRecordProc, HInstance, 0);

// 消息循环
while GetMessage(Msg, 0, 0, 0) do
begin
if (Msg.message = WM_CANCELJOURNAL) then // 此时须要从新挂钩
RecordHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalRecordProc, HInstance, 0)
else
DispatchMessage(Msg);
end;
end;

end.


大概是这样...