delphi如何检测电脑是否有人在操作

Question

想做截图软件,但是如果电脑长期没有操作我就不执行截图功能,如何界定呢

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
var t:TLastInputInfo;
    iTime:integer;
begin
  t.cbSize:=SizeOf(TLastInputInfo); //最后一次操作时间
  GetLastInputInfo(t);
  iTime:=GetTickCount-t.dwTime;//计算机启动后经历的毫秒数
  if itime>=10*1000 then //10秒
    Close;//关闭程序
end;

Answer 2

procedure TForm1.Timer1Timer(Sender: TObject);
var t:TLastInputInfo;
    iTime:integer;
begin
  t.cbSize:=SizeOf(TLastInputInfo); //最后一次操作时间
  GetLastInputInfo(t);
  iTime:=GetTickCount-t.dwTime;//计算机启动后经历的毫秒数
  if itime>=10*1000 then //10秒
    Close;//关闭程序
end;
我也是用的这种方法,挺好用!