我想写一个程序,在程序执行后如果长时间没有操作鼠标、键盘等,就自动运行另一任务,DELPHI7教程中介绍了TApplication.OnIdle事件,就是指应用程序在空闲状态时触发,可不知道怎么写脚本?
解决方案 »
- TActiveFormFactory.Create(参数1,....参数N)应用!!急!!!!![
- 高分求怎样在DbGrid中实现只能修改但不能增加和删除记录的问题。
- winsocket问题
- 关于数据的更新!高手请进!
- 我想了解‘Bug 列表‘是怎么回事,最好有例子
- 哪里有能够进行使用标题进行分组、排序的DBGRID控件?
- 如何实现DBdatetimepicker???急用
- 我的数据在DBGrid里显示正常,可是到打印预览的时候, 0.7就变成 .7 了.怎么回事?
- 一个浮点数等于-NAN,是怎么回事?怎么会出现这种值?
- 急! DBGrid单元格失去焦点时触发事件
- 如何设置目录的共享属性
- 各位大哥谁有DELPHI函数的书吗?有相关地址也行。对小弟我这类刚学的很重要呀~
function LastInput: DWord;
var
LInput: TLastInputInfo;
begin
LInput.cbSize := SizeOf(TLastInputInfo);
GetLastInputInfo(LInput);
Result := GetTickCount - LInput.dwTime;
end;//Example:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := Format('System Idle since %d ms', [LastInput]);
end;
// The GetLastInputInfo function retrieves the time
// of the last input event.
// Minimum operating systems: Windows 2000
你说的这个事件和我说的不是一回事,你说的通信端口接收到一个数据可以用‘时间控件’timer就可以随时检测到的,我的说是应用程序处于空闲状态时触发的事件:只要应用程序在规定的时间内没有键盘、鼠标操作,就触发一个事件,执行某一任务,这个事件就是TApplication.OnIdle事件,但我不知道怎么去写这个事件的脚本。