И снова небольшая контрольная работа, в которой рассматривается применение API-функций при программировании в Delphi. Листинг программы, как обычно, вы сможете скачать в конце статьи и по нему, а также по приложенным здесь изображениям попытаться воссоздать приложение.
Написать программу, открывающую и закрывающую CD-ROM при нажатии соответствующих кнопок.
Для открытия CD-ROM будем использовать функцию mciSendString('Set cdaudio door open wait', nil, 0, handle).
Для его закрытия используем mciSendString('Set cdaudio door closed wait', nil, 0, handle).
При загрузке программы появляется такая форма:
При нажатии на кнопку
CD-ROM открывается и на форме появляется новая кнопка:
Нажав на кнопку
мы закроем CD-ROM.
Для прекращения работы программы необходимо нажать на кнопку
А здесь вы можете скачать исходник программного модуля и использовать его в своих целях:
Также вы можете посмотреть использование API-функций в Делфи при работе с дисками или создать клиент-серверное приложение, работающее через сокеты.
Цель работы
Написать программу, открывающую и закрывающую CD-ROM при нажатии соответствующих кнопок.
Используемые функции
Для открытия CD-ROM будем использовать функцию mciSendString('Set cdaudio door open wait', nil, 0, handle).
Для его закрытия используем mciSendString('Set cdaudio door closed wait', nil, 0, handle).
Результаты работы программы
При загрузке программы появляется такая форма:
При нажатии на кнопку
CD-ROM открывается и на форме появляется новая кнопка:
Нажав на кнопку
мы закроем CD-ROM.
Для прекращения работы программы необходимо нажать на кнопку
А здесь вы можете скачать исходник программного модуля и использовать его в своих целях:
.
Также вы можете посмотреть использование API-функций в Делфи при работе с дисками или создать клиент-серверное приложение, работающее через сокеты.
Комментариев нет:
Отправить комментарий