Как сделать виртуальный диск?

{ ... }
if DefineDosDevice(DDD_RAW_TARGET_PATH, 'P:', 'F:\Backup\Music\Modules') then
  ShowMessage('Drive was created successfully')
else
  ShowMessage('Error creating drive');
    { ... }

Взято с Delphi Knowledge Base: https://www.baltsoft.com/