Довольно простая и небольшая по объему контрольная работа, в которой изучается использование API-функций в Delphi. В конце статьи вы найдете ссылку на файл с листингом программы. Однако там будет только текст самого программного модуля. Все остальное вы можете сделать самостоятельно, руководствуясь приложенными здесь скриншотами работающего приложения.
Написать программу, определяющую наличие или отсутствие в дисководе диска а:\ и выводящую сведения об объемах дисков С:\ и а:\ (объем диска всего, сколько на диске свободно места и сколько занято).
Для проверки наличия или отсутствия диска а:\ будем использовать функцию IsDriveReady(DriveLetter : char) : bool. Эта функция проверяет наличие диска а:\ в дисководе и, при его отсутствии, возвращает значение старой папки на текущем диске.
Для определения объема дисков используем функции DiskSize и DiskFree. Функция DiskSize(Drive), где Drive – имя диска, вычисляет размер диска в байтах. Если результат равен -1, то указанное устройство отсутствует. Функция DiskFree(Drive) определяет число свободных байт на диске. Соответственно, вычитая значение функции DiskFree(Drive) от значения функции DiskSize(Drive), мы получим количество занятых байт на нашем диске.
При загрузке программы появится такая форма:
При нажатии кнопки с обозначением а:\ мы получим сообщение:
при условии, что дискета отсутствует. Если же дискета на месте, то мы увидим следующее окно со сведениями о размере диска и диаграммой, на которой показаны наглядно все вышеуказанные сведения:
Точно так же мы можем получить и сведения о диске С:\, нажав кнопку с соответствующей надписью:
Ниже вы можете скачать файл с исходником программного модуля:
Можете также посмотреть использование Апи-функций при работе с CD-ромом или создание клиент-серверного приложения в Делфи.
Цель работы
Написать программу, определяющую наличие или отсутствие в дисководе диска а:\ и выводящую сведения об объемах дисков С:\ и а:\ (объем диска всего, сколько на диске свободно места и сколько занято).
Используемые функции
Для проверки наличия или отсутствия диска а:\ будем использовать функцию IsDriveReady(DriveLetter : char) : bool. Эта функция проверяет наличие диска а:\ в дисководе и, при его отсутствии, возвращает значение старой папки на текущем диске.
Для определения объема дисков используем функции DiskSize и DiskFree. Функция DiskSize(Drive), где Drive – имя диска, вычисляет размер диска в байтах. Если результат равен -1, то указанное устройство отсутствует. Функция DiskFree(Drive) определяет число свободных байт на диске. Соответственно, вычитая значение функции DiskFree(Drive) от значения функции DiskSize(Drive), мы получим количество занятых байт на нашем диске.
Результаты работы программы
При загрузке программы появится такая форма:
При нажатии кнопки с обозначением а:\ мы получим сообщение:
при условии, что дискета отсутствует. Если же дискета на месте, то мы увидим следующее окно со сведениями о размере диска и диаграммой, на которой показаны наглядно все вышеуказанные сведения:
Точно так же мы можем получить и сведения о диске С:\, нажав кнопку с соответствующей надписью:
Ниже вы можете скачать файл с исходником программного модуля:
.
Можете также посмотреть использование Апи-функций при работе с CD-ромом или создание клиент-серверного приложения в Делфи.
Комментариев нет:
Отправить комментарий