{ ... }
if DefineDosDevice(DDD_RAW_TARGET_PATH, 'P:', 'F:\Backup\Music\Modules') then
ShowMessage('Drive was created successfully')
else
ShowMessage('Error creating drive');
{ ... }
Статья Как сделать виртуальный диск? раздела ОС и Железо Диски может быть полезна для разработчиков на Delphi и FreePascal.
