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

[X-Vlad]

Всем привет, сейчас я вам покажу как создать виртуальный диск на основе папки.
Допустим у нас есть диск [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:"

Если что то не понятно то пишите, ни кого не оставим без помощи!