Форум: "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];

Наверх

Память: 0.71 MB
Время: 0.023 c