Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Вниз![]()
Определение загрузки процессора перед запуском проги
VuDZ (2002-02-06 16:39) [8]На делфийском:
const
integer SystemBasicInformation 0 и так далее
Li2Double(x) ((double)((x).HighPart) * 4.294967296E9 + (double)((x).LowPart))
переводиться примерно так:
беруться первые 32 бита * 4.294967296E9 + нижние 32 бита
всё это преобразуется промежуточно в формат с плавающей точкой, что бы была выше точность
ЗЫ как в делфи выделить первые (последнии) биты - непомню... я бы сделал на асме, но может кто из гуру дефлей подскажет.
Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
EMAIL={{}};LOGIN={{Sergy}};TITLE={{Определение загрузки процессора перед запуском проги}};ATTRIBUTES={{}};ID_MSG={{52510}};ID_GROUP={{4}};ID_NNTP={{3560}};ID_DM={{22879}};REPLYNR={{0}};ID_DM_AUTHOR={{0}};ARCHIVE={{2002.04.08}};REPLYDATE={{2002-02-06 10:27}};CNT={{11}};
Память: 0.74 MB
Время: 0.022 c