怎么实现如果用户在一定时间内（如30秒）不对程序进行任何操作，就退出程序？ (50分)

talent002 · 2004-04-01

如题。

csh88888 · 2004-04-07

设置一个变量不是行了吗？ 每对程序进行操作就置其为0就行啊，然后计时，到了时间就退出就行啊，

talent002 · 2004-04-07

有那么简单吗？

fei_l · 2004-04-07

csh88888说得没错，比如: 在timer1的事件中写： begin    if timer1.tag=0 then close;    timer1.tag:=timer1.tag-1; end; 在其它操作时，加上： if timer1.enabled then timer1.enabled:=false; timer1.tag:=30000;  // 初始化计时 ……  // 处理过程 timer1.enabled:=true; // 启动计时

app2001 · 2004-04-07

我有个DEMO，你需要的话就留个EMAIL下来吧

rwlin · 2004-04-07

是狠简单啊！！！[

]

jobsxy · 2004-04-08

简单？不见得吧，首先照fei_1所说的就有问题，在其他操作时加上。。。。，在什么地方加上呢？每个按纽？或每个FORM的按键事件，或鼠标事件？ app2001麻烦发一个过来看看,jobsxy@sina.com

scan888 · 2004-04-08

app2001, 看来就是不好做，不像屏保，发来一份看看，scan888@163.com

hygsxy · 2004-04-08

也给我发一份.hygks@163.com

刘麻子 · 2004-04-08

//首先在窗体定义加一个过程 public   procedure myMessage(var Msg: tagMSG;var Handled: Boolean); ..... //消息处理函数 procedure TForm1.myMessage(var Msg: tagMSG;var Handled: Boolean); begin   if (Msg.message<=WM_MOUSEFIRST) and (msg.message<=WM_MOUSELAST) or    //鼠标    (Msg.message<=WM_KEYFIRST) and (msg.message<=WM_KEYLAST) then       //键盘   begin  //重新开始     Form1.Timer1.Enabled:=false;     Form1.Timer1.Enabled:=true;   end;   handled:=false;  //表示没有处理过，否则程序将不在处理，会出错的 end; procedure TForm1.FormCreate(Sender: TObject); begin   Application.OnMessage:=myMessage;  //连接消息处理函数 end; //上面代码在我机子上测试通过

talent002 · 2004-04-08

app2001, yzp0755@163.com 请发一份。

linbren · 2004-04-08

用TIMER+刘兄的做法就可以了吧。

app2001 · 2004-04-08

发给你了

刘麻子 · 2004-04-09

 老大   ，  可以结帐了。。。

talent002 · 2004-04-09

多人接受答案了。

怎么实现如果用户在一定时间内（如30秒）不对程序进行任何操作，就退出程序？ (50分)

talent002

Unregistered / Unconfirmed

csh88888

Unregistered / Unconfirmed

talent002

Unregistered / Unconfirmed

fei_l

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

rwlin

Unregistered / Unconfirmed

jobsxy

Unregistered / Unconfirmed

scan888

Unregistered / Unconfirmed

hygsxy

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

talent002

Unregistered / Unconfirmed

linbren

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

talent002

Unregistered / Unconfirmed

Similar threads