Сейчас на форуме: jinoweb (+4 невидимых)

 eXeL@B —› Программирование —› Найти функцию Windows…
Посл.ответ Сообщение

Ранг: 2.1 (гость)
Активность: 0=0
Статус: Участник

Создано: 26 марта 2016 11:54
· Личное сообщение · #1

Здравствуйте уважаемые форумчане, не могу ни как найти в windows функцию, отвечающую за вывод информации: <<Работоспособность Системы>>.
Хочу в проекте Delphi 7 на форме отобразить в виде:

Code:
  1. procedure TForm1.FormCreate(Sender: TObject);
  2. var
  3.    RSystemStatus: TSystemStatusEx;
  4. begin
  5.  
  6.      Label1.Caption:= 'Работоспособность Системы: ' + IntToStr(RSystemStatus.dwSystemLoad) + ' %';
  7. end;


Видел нечто похожее в программе Everest Corporate Edition скриншот прилагаю Ссылка: --> Link <--

Нигде в технической документации и в Инете не смог найти эту функцию.
Может это недокументированная функция, если да, как мне ее найти или вызвать из Windows (реестра, dll, ... ), или хотя бы <<выдернуть>> из Everest Corporate Edition.
Буду признателен за любую ВАШУ помощь, советы, приведенные примеры.




Ранг: 2014.5 (!!!!), 1278thx
Активность: 1.340.25
Статус: Модератор
retired

Создано: 26 марта 2016 12:50
· Личное сообщение · #2

Время работы/(время работы+время простоя)*100%, не?

| Сообщение посчитали полезным: v00doo

Ранг: 2.1 (гость)
Активность: 0=0
Статус: Участник

Создано: 26 марта 2016 14:15
· Личное сообщение · #3

Archer

Если имелось ввиду:

Общее Время работы/(Общее время работы + Общее время простоя)*100% то похоже на правду

6681722/(6681722 + 13538895)*100% = 302,62583507664640941362121920068

с округлением получаем: 33,04%




Ранг: 2014.5 (!!!!), 1278thx
Активность: 1.340.25
Статус: Модератор
retired

Создано: 26 марта 2016 15:48
· Личное сообщение · #4

У вас странный калькулятор. Для тех же чисел я получил число 33,044105429621657934572421800977%, что в точности до выведенного числа знаков после запятой соответствует показанному в окне.



Ранг: 431.7 (мудрец), 390thx
Активность: 0.730.32
Статус: Участник

Создано: 26 марта 2016 16:09 · Поправил: dosprog
· Личное сообщение · #5

[offtop]
.. что-то Archer какой-то.. добрый..
[/offtop]

Логика туманна. Но странным образом выходит, что
100 * 100 / 302.62583507664640941362121920068 = 33.044105429621657934572421800985 (%)
Парадокс..

--Добавлено--
Вспомнился анекдот - "Наше дело не прибавлять и умножать, а отнимать и делить"..



Ранг: 2.1 (гость)
Активность: 0=0
Статус: Участник

Создано: 26 марта 2016 16:41
· Личное сообщение · #6

Archer Спасибо ВАМ за помощь. Вы правы, все верно, сума сошлась.




Ранг: 2014.5 (!!!!), 1278thx
Активность: 1.340.25
Статус: Модератор
retired

Создано: 26 марта 2016 19:31
· Личное сообщение · #7

Поделили 2 цифирьки, на этом реверс закончен, можно закрыть, видимо.

| Сообщение посчитали полезным: m1kserok
 eXeL@B —› Программирование —› Найти функцию Windows…
Эта тема закрыта. Ответы больше не принимаются.
   Для печати Для печати