Home

Page 293
Page 293
background image

286

Глава 6

GetDiskFreeSpace(PChar(Root), SpC,

 NfC, TnC);

FreeDiskSize : = (NfC * SpC * BpS) / 1024;

Result

end;

В первой строке узнаем размер и количество свободных кластеров. Во вто-

рой строке производим расчет с помощью перемножения количества сво-

бодных кластеров, количества секторов в кластере и количества байтов

в секторе. Результат расчета делим на 1024, чтобы перевести результат из
байтов  килобайты.

На компакт-диске в директории \Примеры\Глава 6\System Info вы можете

увидеть пример программы, обсуждаемой в данном разделе.

6.4. Частота и загрузка процессора

В этом разделе речь пойдет о сердце компьютера — процессоре. Как быстро

он работает? Сильно ли его загружает то или иное приложение? На эти во-
просы можно ответить самим, написав программы, тестирующие работу
процессора.

6.4.1. Частота процессора

В данном разделе я хочу показать, как определить частоту работы процессо-

ра. Несмотря на то, что в реальных условиях трудно найти пример програм-
мы, где это может пригодиться, используемые в этом примере приемы
программирования очень интересны и познавательны.

 Скорость

Скорость процессора: ? MHz

 6.5. Окно, готовое к отображению частоты процессора

Давайте создадим в Delphi новый проект. На форме нам понадобятся два

компонента

 и две кнопки: Запустить и Стоп. После нажатия этих

кнопок будет запускаться и останавливаться процесс определения скорости
процессора. Один компонент

 чисто информационный и содержит

текст Скорость процессора:. Во втором мы будем выводить текст, содержа-

щий значение частоты процессора. Мою форму программы вы можете уви-

деть на рис. 6.5.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.