PB: Ouvrir un disque dans un TStream ???
Apparement le code ci dessous ne fonctionne pas, car il renvois DiskStream.size = -1
DiskStream.size
DiskStream := TFileStream.Create('\\.\PhysicalDrive0', fmOpenRead);