关于屏幕保护程序中键盘和鼠标的响应

Question

小弟想用delphi做一个屏幕保护程序
rocedure TFormScreen.detect(var Msg:TMsg;var Handle:Boolean);
begin
   Done:=False;
   if(Msg.message=WM_KEYDOWN) then
   begin
      Done:=True;
   end;
   if Done=True then
   begin
      FormScreen.Visible:=False;
      if not (Mess.message=WM_KEYDOWN) or (Mess.message=WM_MOUSEMOVE) then
      timer1.enabled:=true;
   end;
end;
现在碰到的问题是，屏幕隐藏后30秒就出现了（30秒是我的设定）
而我想做到的是在没有鼠标键盘响应30秒后才出现屏幕
现在是只要30秒屏幕就出来在判断有没有响应才隐藏
望高手门指点一下

Answer 1

这个我觉你应该做一个全局的钩子来监视键盘和鼠标
然后在你主程序的Timer的OnTimer事件中调用钩子
当属表或者键盘按下的时候，几下当前的时间，StartTime
当属表或者键盘再按下的时间EndTime
EndTime-StartTime的值和30比较
然后StartTime:=EndTime;