delphi簡單判斷程序30秒沒有鍵盤和鼠標動作示例

本文為大家詳細介紹下delphi判斷程序秒沒有鍵盤和鼠標動作這裡給timer設置了ms)的參數表示秒的間隔具體實現如下感興趣的朋友可以參考下哈  

　　以下為原代碼
(這裡給timer設置了ms)的參數表示秒的間隔！！

復制代碼 代碼如下:

　　
unit Unit;
interface
uses
Windows Messages SysUtils Variants Classes Graphics Controls Forms
Dialogs StdCtrls ExtCtrls;
type
TForm = class(TForm)
Memo: TMemo;
Button: TButton;
Timer: TTimer;
procedure TimerTimer(Sender: TObject);
procedure ButtonClick(Sender: TObject);
private
{ Private declarations }
public
procedure AppMessageHandler(var Msg:TMsg;var Handled:Boolean);
{ Public declarations }
end;
var
Form: TForm;
implementation
{$R *dfm}
{ TForm }
procedure TFormAppMessageHandler(var Msg: TMsg; var Handled: Boolean);
begin
if (msgmessage=WM_MOUSEMOVE) or (msgmessage=WM_KEYDOWN) then timertag:=;
end;
procedure TFormTimerTimer(Sender: TObject);
begin
timertag:=timertag+;
if Timertag= then close;
end;
procedure TFormButtonClick(Sender: TObject);
begin
close;
end;
end

From:http://tw.wingwit.com/Article/program/PHP/201311/21226.html