Pour créer un disque virtuel au format VHD en Pascal, vous pouvez utiliser la fonction CreateVHD de la bibliothèque de disques virtuels (VirtualDiskLibrary).

Voici un exemple de code pour créer un disque virtuel de 50 Go au format VHD :

// Importez la bibliothèque de disques virtuels
uses VirtualDiskLibrary;
 
// Déclarez les variables
var
VHD: IVirtualDisk;
VHDParams: TVirtualDiskParameters;
VHDHandle: THandle;
 
// Initialisez les paramètres du disque virtuel
VHDParams.DiskType := VIRTUAL_DISK_TYPE_FIXED;
VHDParams.Version := CREATE_VIRTUAL_DISK_VERSION_1;
VHDParams.Version2 := CREATE_VIRTUAL_DISK_VERSION_UNSPECIFIED;
VHDParams.Size := 50 * 1024 * 1024 * 1024; // 50 Go
 
// Créez le disque virtuel
CreateVHD('C:\MonDisqueVirtuel.vhd', VHDParams, VHDHandle, VHD);

Ce code créera un disque virtuel au format VHD de 50 Go dans le répertoire C:\ avec le nom MonDisqueVirtuel.vhd. Vous pouvez ensuite utiliser les autres fonctions de la bibliothèque de disques virtuels pour manipuler ce disque virtuel, comme l'ouvrir, écrire des données dessus, etc.

Source : OpenAI ChatGPT

• https://learn.microsoft.com/fr-fr/archive/msdn-magazine/2009/april/windows-with-c-the-virtual-disk-api-in-windows-7