鼠标键盘在指定时间内没有响应,系统自动进行保护. 有例子的贴出来!!!

Question

程序能检测出鼠标键盘在指定时间内没有响应,系统自动进行保护. 有例子的贴出来!!!

Answer 1

参考一下：
http://topic.csdn.net/t/20061028/10/5115503.html使用GetLastInputInfo函数

Answer 2

function LastInput: DWord;//返回键盘鼠标无动作时间，判断后执行你的保护即可
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;

Answer 3

function LastInput: DWord; //检测无操作时间
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;

Answer 4

function LastInput: DWord; //检测无操作时间
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;

Answer 5

function LastInput: DWord; //检测无操作时间
var
  LInput: TLastInputInfo;
begin
  LInput.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(LInput);
  Result := GetTickCount - LInput.dwTime;
end;