检测用户超过5分钟没有操作键盘或鼠标+函数

1.>>>5秒后提示，但只有一次============================================ 

procedure TForm1.Timer1Timer(Sender: TObject);
var  vLastInputInfo: TLastInputInfo;
begin  
vLastInputInfo.cbSize := SizeOf(vLastInputInfo); 
GetLastInputInfo(vLastInputInfo);
if GetTickCount - vLastInputInfo.dwTime > 5000 then
 begin
  timer1.Enabled:= false;  
  showmessage('超过5秒，用户未动鼠标！'); 
 end;
end;

 

得到停止操作时间

1. 定义过程

function LastInput: DWord;

 

2.解释过程

function TForm1.LastInput: DWord;
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;

 

3.使用函数

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption:=IntToStr(LastInput);
end;