¿Cómo leer un CD como un archivo?

Question

Quiero saber si es posible en Delphi leer un CD como flujo directo sin formato desde el dispositivo de disco lógico "C: \".

Espero que pueda utilizar un TFileStream si ya tengo un identificador de archivo válido.

Answer 1

Es más fácil usar THandleStream en lugar de TFileStream en mi opinión. De esta manera:

procedure ReadFirstSector; 
var 
    Handle: THandle; 
    Stream: THandleStream; 
    Buffer: array [1..512] of Byte; 
    b: Byte; 
begin 
    Handle := CreateFile('\\.\C:', GENERIC_READ, 
    FILE_SHARE_READ or FILE_SHARE_WRITE, nil, 
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); 
    if Handle=INVALID_HANDLE_VALUE then 
    RaiseLastOSError; 
    try 
    Stream := THandleStream.Create(Handle); 
    try 
     Stream.ReadBuffer(Buffer, SizeOf(Buffer)); 
     for b in Buffer do 
     Writeln(AnsiChar(b)); 
    finally 
     Stream.Free; 
    end; 
    finally 
    CloseHandle(Handle); 
    end; 
end; 

Tenga en cuenta que al usar el acceso al disco sin procesar debe leer exactamente los múltiplos de sectores. Los sectores en el disco que probé tienen un tamaño de 512 bytes. Espero que los sectores de discos CD puedan tener un tamaño diferente.