DiskStream

PB: Ouvrir un disque dans un TStream ???

Apparement le code ci dessous ne fonctionne pas, car il renvois DiskStream.size = -1

DiskStream := TFileStream.Create('\\.\PhysicalDrive0', fmOpenRead);

• https://www.generacodice.com/es/articolo/1078102/Delphi-Pascal---Using-SetFilePointerEx-and-GetFileSizeEx%2C-Getting-Physical-Media-exact-size-when-reading-as-a-file
• https://stackoverflow.com/questions/9159438/how-to-read-a-cd-as-a-file