高分求救(300)(300分)

DelphiTony · 2003-04-17

[

!]怎么样判断一个应用程序响应键盘或鼠标的活动？ 比如：我要控制程序在30分钟的时候如果键盘或鼠标没有对它操着的话，就退出当前的程序。 各位大侠帮帮忙吧，我要的很急，答对一定给分300。

stuwe · 2003-04-17

我都想了解 幫你頂一下

LeeChange · 2003-04-17

加上TApplicationEvents控件,在onmessage事件中每发生一次鼠标事件就复位定时器.

爱元元的哥哥 · 2003-04-17

xgz_ball · 2003-04-17

先定义一个全局变量来记录上一次操作的时间Ld_LastDate:TDateTime procedure AppMessage(var Msg: TMsg; var Handled: Boolean); begin  if (msg.message=WM_MOUSEACTIVATE) or (....) then    Ld_LastDate:=Now; end; Application.onmessage:=AppMessage; 然后定一个计时器30分钟一次 procedure Timer1.ontimer(sender:tobject); begin  if ld_lastdate=0 then   application.Terminate  else   ld_lastdate:=0; end;

任豆豆 · 2003-04-17

TApplicationEvents和Ttimer结合使用即可 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;   var Handled: Boolean); begin  // if (Msg.Message=wm_lMouseDown)....then  //可再对消息具体进行判断和过滤处理   Timer1.Enabled := False; end; procedure TForm1.ApplicationEvents1Idle(Sender: TObject;   var Done: Boolean); begin   Timer1.Enabled := True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin   showmessage('30分钟未动') end; TApplicationEvents在additional组件中 Ttimer设interval为30*60*1000

stuwe · 2003-04-17

if (msg.message=WM_KEYDOWN)or(msg.Message=WM_MOUSEMOVE) then       c:=0;//c為全局 這樣只能對該程序操作時有效(好像程序不要激活狀態下就無效) 順便問一下﹕ 各位有沒有在不激活狀態下也同樣有效的方法?

DEN · 2003-04-17

是呀,stuwe 大侠的问题值得关注呀.

wql · 2003-04-17

哇！300分耶！ 看招： 1.把ttime放入form，把Additional中的ApplicationEvents也放入Form，设置 它的onmessage事件。 2.见下面的代码: var   _time:word=0;//分钟时间计数 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;   var Handled: Boolean); begin           if (Msg.message=WM_MOUSEMOVE)   or              (Msg.message=WM_LBUTTONDOWN) or              (Msg.message=WM_RBUTTONDOWN) or              (Msg.message=WM_KEYDOWN)     Then              _time:=0; //本程序有鼠标或键盘动作，重新开始计数 end; procedure TForm1.Timer1Timer(Sender: TObject); begin           Timer1.Interval:=60*1000; { 1分钟 }           inc(_time);           if (_time>=30) then           begin             Timer1.Enabled:=false;             close;           end; end; 3.搞定！给分！

wem888 · 2003-04-17

wql good

DelphiTony · 2003-04-17

大哥，这个是在delphi2.0下用的。不好意思，我忘了高诉你了。 在delphi2.0中没有ApplicationEvents呀。 如果是在delphi6.0中是可以的。 但我现在不是呀，所以还不能送分，请再帮想想！ 谢谢！

LeeChange · 2003-04-17

没有ApplicationEvents,但有Application吧(实在不记得了), 让Application.OnMessage:=... 不就行了.

小熊跳舞 · 2003-04-17

ApplicationEvents

Highpeak · 2003-04-17

别搞得那么复杂,看下面的: 可以如下方法解决: unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls; type   TForm1 = class(TForm)     Timer1: TTimer;     procedure Timer1Timer(Sender: TObject);   private     { Private declarations }   public       procedure WndProc(var Msg: TMessage); override;   end; var   Form1: TForm1;   TimeCount:integer; implementation {$R *.DFM} procedure TForm1.WndProc(var Msg: TMessage); begin   inherited;   timeCount:=0; end; procedure TForm1.Timer1Timer(Sender: TObject); begin   inc(timeCount);   if timecount=1800 then close; end; end.

DelphiTony · 2003-04-17

楼上大哥能不能解释一下呀？

Highpeak · 2003-04-17

难道你要发分了? 呵呵 你看一下wndproc的帮助吧,这里重写了一下而与.

wql · 2003-04-17

procedure TForm1.WndProc(var Msg: TMessage); begin   inherited;     if (Msg.MSG=WM_MOUSEMOVE)   or        (Msg.MSG=WM_LBUTTONDOWN) or        (Msg.MSG=WM_RBUTTONDOWN) or        (Msg.MSG=WM_KEYDOWN)     Then        timeCount:=0; //本程序有鼠标或键盘动作，重新开始计数 end;

DEN · 2003-04-17

来晚了,Highpeak的方法加上wql的方法才是最好的.

stuwe · 2003-04-17

有沒有類似于屏保那樣 不管程序是不是激活都有效

DelphiTony · 2003-04-17

楼上的Highpeak哥，你这种做法不是我要求的，当鼠标离开时就触发，停在窗体上面时就不触发了。

高分求救(300)(300分)

DelphiTony

Unregistered / Unconfirmed

stuwe

Unregistered / Unconfirmed

LeeChange

Unregistered / Unconfirmed

爱元元的哥哥

Unregistered / Unconfirmed

xgz_ball

Unregistered / Unconfirmed

任豆豆

Unregistered / Unconfirmed

stuwe

Unregistered / Unconfirmed

DEN

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

wem888

Unregistered / Unconfirmed

DelphiTony

Unregistered / Unconfirmed

LeeChange

Unregistered / Unconfirmed

小熊跳舞

Unregistered / Unconfirmed

Highpeak

Unregistered / Unconfirmed

DelphiTony

Unregistered / Unconfirmed

Highpeak

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

DEN

Unregistered / Unconfirmed

stuwe

Unregistered / Unconfirmed

DelphiTony

Unregistered / Unconfirmed

Similar threads