获取电脑系统空闲时间

2017-10-17 / 0评 /

本文共计 9174 字,感谢您的耐心浏览与评论。

function GetLastInput: integer//获取闲置时间
var
  LInput: TLastInputInfo;
begin
  Result := 0;
  try
    LInput.cbSize := SizeOf(TLastInputInfo);
    GetLastInputInfo(LInput);
    Result := ((GetTickCount - LInput.dwTime) div 1000);
  except
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
 if GetLastInput > 10 then
 Label1.Caption :='你已经'+ inttostr(GetLastInput) + '秒没有操作计算机了!'
 else
 Label1.Caption :='';
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label2.Caption :='电脑空闲时间:' + inttostr(GetLastInput) + '秒';
end;

声明:多春鱼吧|版权没有,违者不究|转发请注明出处

转载:转载请注明原文链接 - 获取电脑系统空闲时间

0条回应:“获取电脑系统空闲时间”

发表评论