eXeLab
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 октября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

Русский / Russian English / Английский

Сейчас на форуме: (+2 невидимых)
 · Начало · Статистика · Регистрация · Поиск · ПРАВИЛА ФОРУМА · Язык · RSS · SVN ·

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

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

Создано: 26 марта 2016 11:54 New!
Цитата · Личное сообщение · #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.
Буду признателен за любую ВАШУ помощь, советы, приведенные примеры.


Ранг: 1991.4 (!!!!)
Статус: Модератор
retired

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

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

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


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

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

Archer

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

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

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

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


Ранг: 1991.4 (!!!!)
Статус: Модератор
retired

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

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

Ранг: 408.5 (мудрец)
Статус: Участник

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

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

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

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

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

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

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


Ранг: 1991.4 (!!!!)
Статус: Модератор
retired

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

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

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

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

Оригинальный DVD-ROM: eXeL@B DVD !

Вы находитесь на форуме сайта EXELAB.RU
Проект ReactOS