系统待机时间

procedure TForm1.Timer1Timer(Sender: TObject);
var
  vLastInputInfo: TLastInputInfo;
begin
  vLastInputInfo.cbSize := SizeOf(vLastInputInfo);
  GetLastInputInfo(vLastInputInfo);
  Caption := Format(
    '距离上次输入间隔%d毫秒', [GetTickCount - vLastInputInfo.dwTime]);
end;

原贴：zswang(伴水清清)(专家门诊清洁工)