delphi简单判断程序30秒没有键盘和鼠标动作示例
以下为原代码:
(这里给timer设置了1000ms)的参数,表示30秒的间隔!!
代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure AppMessageHandler(var Msg:TMsg;var Handled:Boolean);
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);
begin
if (msg.message=WM_MOUSEMOVE) or (msg.message=WM_KEYDOWN) then timer1.tag:=0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.tag:=timer1.tag+1;
if Timer1.tag=30 then close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
end.
相关推荐
-
Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
本文实例讲述了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法.分享给大家供大家参考.具体实现方法如下: const WM_MouseEnter = $B013; WM_MouseLeave = $B014; type TfrmMain = class(TForm) . . Timer1: TTimer; procedure Timer1Timer(Sender: TObject); protected procedure WMMouseEnter(var Msg: TMessage)
-
Delphi实现限定软件使用时间的方法
我们经常看到很多网上下载的试用版软件,都有使用时间的限制,就其商业角度而言也是处于软件效益保护的一种措施,可以让用户免费试用一段时间,若满意就可以购买商业软件.本文所述实例代码功能就是如何为Delphi所编写的程序添加使用时间的限制功能,这里默认的时限为30天. 主要代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Registry, Dialogs;
-
Delphi编程常用快捷键大全
快捷键对于提高编程速度有着很重要的影响,本文汇总整理了Delphi常用的快捷键,供大家参考之用: Ctrl+PageUp将光标移至本屏的第一行,屏幕不滚动. Ctrl+PageDown将光标移至本屏的最后一行,屏幕不滚动. Ctrl+↓向下滚动屏幕,光标跟随滚动不出本屏. Ctrl+↑向上滚动屏幕,光标跟随滚动不出本屏. Ctrl+Shift+NUM在光标行设置最多九个临时标志号,对临时切换非常有用. 行的左边将出现一本书,封面有NUM,再按一次取消设置. Ctrl+NUM直接将光标跳到NUM处
-
Delphi实现图像文本旋转特效完整实例代码
本文以实例讲述了Delphi实现图像文本旋转特效的解决方法,在本程序中利用的控件主要是Panel 控件.Image 控件.Edit 控件.Label 控件和Button 控件.本程序的关键是利用Delphi 的bmp_rotate()函数来实现旋转图像的功能.并巧妙地调用相关Windows API 函数来实现对文本的旋转特效. 完整的实例代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics,
-
Delphi实现窗口文字淡入淡出渐变效果的方法
本文所述实例为Dlephi实现的窗口渐变文字效果,文字可以不停的变化,颜色由浅入深,由清淅变模糊,文字渐变的时间可在代码中自己调整.主要实现代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer;
-
Delphi实现图片滚动切换的完整实例代码
本文以实例介绍了Delphi实现图片滚动切换的方法.该程序可以实现图像的滚动播出,并且通过本代码可控制窗口中的图像向上滚动,通过调节速度滚动条的值还可以调整滚动的速度:点击"停止"按钮,图像即停止滚动. 完整的功能代码如下: unit Unit1; interface uses Windows, Classes, Graphics, Forms, Controls, Menus, Dialogs, StdCtrls, ExtCtrls, SysUtils, ComCtrls, Butt
-
Delphi实现获取磁盘空间大小的方法
本文所述Delphi实例用以获取指定的磁盘空间容量大小,检测磁盘大小,从combox中选择磁盘代号等功能.点击"检测驱动器"容量信息的按钮,就可以在下边显示出该磁盘的总空间大小以及要用容量的大小.读者可根据需求添加对应的Button与label控件. 主要程序代码如下所示: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtr
-
delphi简单判断程序30秒没有键盘和鼠标动作示例
以下为原代码: (这里给timer设置了1000ms)的参数,表示30秒的间隔!! 复制代码 代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Timer1:
-
jQuery简单判断值是否存在于数组中的方法示例
本文实例讲述了jQuery简单判断值是否存在于数组中的方法.分享给大家供大家参考,具体如下: <!DOCTYPE> <html> <head> <title>jquery判断值是否存在于数组中</title> <meta charset="utf-8"> </head> <body> <script src="http://libs.baidu.com/jquery/2.0.
-
VBS监控CPU的使用率(如占用率一直维持在80%超过30秒则运行某程序)
按照楼主的要求重新修改了下,代码如下: 复制代码 代码如下: '----------------------------------------On Error Resume Next dim iCpuUsePercentage'记录CPU使用率dim iSecond'记录使用率等于100所持续的时间dim objFileStream'txt文本读写流,用于记录日志dim objTextFileWriter'txt写对象dim objShell'Shell'对象,用于执行指定程序dim objF
-
Python通过30秒就能学会的漂亮短程序代码(过程全解)
① 二维列表 根据给定的长和宽,以及初始值,返回一个二维列表: def initialize_2d_list(w, h, val=None): return [[val for x in range(w)] for y in range(h)] 例如: >>> initialize_2d_list(2,2) [[None, None], [None, None]] >>> initialize_2d_list(2,2,0) [[0, 0], [0, 0]] ② 函数切割
-
Python如何实现的简单购物车程序
购物车程序需求: 用户输入购物预算 展示商品列表 用户购买商品,每次购买后提示用户购买信息和剩余预算 购物完成后打印购物花费和购物清单,并将商品从原列表移除 实现代码如下: # 正整数校验函数 def is_positive_int(input_num): # noinspection PyBroadException # 上一条注释消除Pycharm 'Too broad exception clause' 警告 try: positive_int = int(input_num) if po
-
阿里云上从ASP.NET线程角度对“黑色30秒”问题的全新分析
在这篇博文中,我们抛开对阿里云的怀疑,完全从ASP.NET的角度进行分析,看能不能找到针对问题现象的更合理的解释. "黑色30秒"问题现象的主要特征是:排队的请求(Requests Queued)突增,到达HTTP.SYS的请求数(Arrival Rate)下降,QPS(Requests/Sec)下降,CPU消耗下降,Current Connections上升. 昨天晚上18:08左右发生了1次"黑色30秒",正好借此案例分析一下. 1.为什么Requests Qu
-
JS自动倒计时30秒后按钮才可用(两种场景)
展示效果图: WEB开发中经常会用到倒计时来限制用户对表单的操作,比如希望用户在一定时间内看完相关协议信息才允许用户继续下一步操作,又比如在收取手机验证码时允许用户在一定时间过后(未收到验证码的情况下)再次获取验证码.那么今天我来给大家介绍下如何使用Javascript来实现这一简单应用. 查看演示 下载源码 应用场景1:用户注册时阅读完相关协议信息后才能激活按钮 某些网站注册时要求用户同意所谓的用户协议之类的信息,如果协议内容非常重要,有些网站会要求新注册的用户一定要阅读完相关协议信息才能激活
-
Android实现的简单蓝牙程序示例
本文实例讲述了Android实现的简单蓝牙程序.分享给大家供大家参考,具体如下: 我将在这篇文章中介绍了的Android蓝牙程序.这个程序就是将实现把手机变做电脑PPT播放的遥控器:用音量加和音量减键来控制PPT页面的切换. 遥控器服务器端 首先,我们需要编写一个遥控器的服务器端(支持蓝牙的电脑)来接收手机端发出的信号.为了实现这个服务器端,我用到了一个叫做Bluecove(专门用来为蓝牙服务的!)的Java库. 以下是我的RemoteBluetoothServer类: public class
-
C#实现简单聊天程序的方法
本文实例讲述了C#简单聊天程序实现方法.分享给大家供大家参考.具体如下: 假如有服务器端程序,ChatServer和客户端程序ChatClient.实现客户端向服务器端发送信息的简单功能. 运行步骤, 1.先是服务器端start listen, 2.然后客户端connect. 3.客户端发送消息 只要服务器端start listen了,然后客户端也connect了.这样建立起连接后.接受发送信息就方便了,只要用writer,reader去操作NetworkStream 服务器ChatSe
-
Android判断程序是否第一次启动
本文实例为大家分享了Android判断程序是否第一次启动的具体代码,供大家参考,具体内容如下 public class Welcome extends Activity { private final long SPLASH_LENGTH = 2000; Handler handler = new Handler(); public void onCreate(Bundle savedInstanceState) { super.onCreate(savedInstanceState); set
随机推荐
- python实现udp数据报传输的方法
- 批处理实现过滤重复行
- SQL Server中将查询结果转换为Json格式脚本分享
- jQuery基于正则表达式的表单验证功能示例
- 了解jQuery技巧来提高你的代码(个人觉得那个jquery的手册很不错)
- 详解Angular2表单-模板驱动的表单(Template-Driven Forms)
- js 声明数组和向数组中添加对象变量的简单实例
- PHP处理数组和XML之间的互相转换
- python使用fileinput模块实现逐行读取文件的方法
- JS+canvas绘制的动态机械表动画效果
- 影响jQuery使用的14个方面
- 对联广告 flash版
- win2003用户必看
- wamp2.2e 64位 curl 开启不了的解决办法
- VC++中进程与多进程管理的方法详解
- 基于Spring Boot的Logback日志轮转配置详解
- C++ 字符串的反转五种方法实例
- 二进制中1的个数
- 基于JavaScript实现屏幕滚动效果
- php 分页函数multi() discuz