1. Do you speak English? Use the English version of the site! Link
    Скрыть объявление
Скрыть объявление
Здравствуй гость! После регистрации на ресурсе, ты сможешь скачивать материалы с форума и участвовать в его жизни! Для регистрации откройте соответствующую форму или нажмите на эту ссылку.

Delphi виртуальный диск

Тема в разделе "Статьи", создана пользователем X-Vlad, 02.10.2015.

  1. X-Vlad

    X-Vlad Юзер

    Дек 04 2016 в 23:22
    Регистрация:
    21.09.2015
    Сообщения:
    21
    Симпатии:
    26
    Всем привет, сейчас я вам покажу как создать виртуальный диск на основе папки.
    Допустим у нас есть диск [D] и на нем есть папка [Games]. Мы хотим сделать виртуальный диск, в котором будет размещено содержимое папки [Games]
    Ну что приступим, ничего сложного нету:
    Код:
    Создаем диск при помощи функции:
    
    DefineDosDevice(0, PChar(a), PChar(b));
    
    где переменная a - тут указываем какую букву мы хотим для диска, только свободную  и в виде "C:" или "H:"
    переменная b - это путь к папке на нашем примере к [Games], пример "D:\Games\"
    Ну после того как создали, остается вопрос а как его удалить то? есть и для этого решение:
    Код:
    DefineDosDevice(DDD_REMOVE_DEFINITION, PChar(a), Nil);
    
    Аналогично переменная a - это буква диска который мы создали, пример "H:"
    Если что то не понятно то пишите, ни кого не оставим без помощи!
     
    AnGel и bilka00 нравится это.
  2. bilka00

    bilka00 VIP

    Дек 05 2016 в 21:09
    Регистрация:
    27.08.2015
    Сообщения:
    184
    Симпатии:
    132
    Очень даже неплохо
    Я рукожопил через установку спайлайса на учение дисков