Vytvoření virtuálního disku

Máte-li rozsáhlý disk, můžete se v jeho obsahu snadno ztratit i v tom případě, že jej máte rozdělen na několik oblastí. Pokud potřebujete kupříkladu často přistupovat do jednoho (třeba i více zanořeného) adresáře, může se hodit vytvoření virtuálního disku. Jak se to dá udělat programově nám ukazuje náš příklad:
procedure TForm1.Button35Click(Sender: TObject);
begin
if DefineDosDevice(DDD_RAW_TARGET_PATH, 'X:', PChar('c:\')) then ShowMessage('Virtuální disk "X" byl vytvořen.')
else ShowMessage('Při vytváření virtuálního disku došlo k chybě.');
end;