Delphi Delphi Виртуальный Диск

[Lomanu4]

Допустим у нас есть диск [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:"