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);

• Les Disques durs

• 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
• https://docs.microsoft.com/fr-fr/windows/win32/api/ioapiset/nf-ioapiset-deviceiocontrol Doc Microsoft sur DeviceIOControl
• https://eric-boisvert.developpez.com/Delphi/Articles/DupDisk/