delphi簡(jiǎn)單判斷程序30秒沒有鍵盤和鼠標(biāo)動(dòng)作示例
更新時(shí)間：2013年06月28日 16:53:05 作者：
本文為大家詳細(xì)介紹下delphi判斷程序30秒沒有鍵盤和鼠標(biāo)動(dòng)作,這里給timer設(shè)置了1000ms)的參數(shù)，表示30秒的間隔，具體實(shí)現(xiàn)如下，感興趣的朋友可以參考下哈
以下為原代碼：
(這里給timer設(shè)置了1000ms)的參數(shù)，表示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.
(這里給timer設(shè)置了1000ms)的參數(shù)，表示30秒的間隔??！
復(fù)制代碼 代碼如下:
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.
相關(guān)文章
Delphi實(shí)現(xiàn)毫秒級(jí)別的倒計(jì)時(shí)實(shí)例代碼
這篇文章主要介紹了Delphi實(shí)現(xiàn)毫秒級(jí)別的倒計(jì)時(shí)實(shí)例代碼,需要的朋友可以參考下2014-07-07
Delphi 在窗體上創(chuàng)建自己光標(biāo)的實(shí)例
這篇文章主要介紹了Delphi 在窗體上創(chuàng)建自己光標(biāo)的實(shí)例的相關(guān)資料,希望通過本文能幫助到大家，需要的朋友可以參考下2017-09-09
插件管理框架 for Delphi許多軟件采用“插件”（PlugIns）來擴(kuò)展其功能，比如PhotoShop所支持的各類濾鏡就是插件；我們所熟知的Winamp，也有許多皮膚以及可視效果插件。再有微軟的windows media player，以及QQ，沖浪軟件Opera……采用插件技術(shù)的軟件數(shù)不勝數(shù)，而各個(gè)軟件的具體實(shí)現(xiàn)方式也是五花八門，各有特點(diǎn)。2008-03-03
今天小編就為大家分享一篇完美解決Indy 編譯提示版本不一致的問題，具有很好的參考價(jià)值，希望對(duì)大家有所幫助。一起跟隨小編過來看看吧2020-02-02
由Delphi園地整理的Delphi書籍15本常用的參考書籍，需要的朋友可以下載了。2011-12-12
delphi xe 可用的MD5算法，需要的朋友可以參考一下2013-04-04
這篇文章主要介紹了delphi實(shí)現(xiàn)保存和讀取圖片的方法,主要包括了顯示圖片、保存圖片和讀取圖片的實(shí)現(xiàn)方法,是非常實(shí)用的技巧,需要的朋友可以參考下2014-09-09
內(nèi)容： 要利用.INI文件做程序有關(guān)數(shù)據(jù)的存儲(chǔ)工作，就需要能讀和寫.INI 文件，所以列了如下方法給大家參考：2008-03-03
Windows API GetLastError()函數(shù)返回值含義解釋
這篇文章主要介紹了Windows API GetLastError()函數(shù)返回值含義解釋,本文羅列了所有錯(cuò)誤代碼及中文注釋,需要的朋友可以參考下2015-05-05
這篇文章主要介紹了Delphi下OpenGL2d繪圖之初始化流程詳解,對(duì)于OpenGL的總體了解很有幫助,需要的朋友可以參考下2014-07-07