Código Delphi [-] var Letra: Char; begin for Letra:= 'A' to 'Z' do if GetDriveType(Pchar(Letra+':\')) = DRIVE_CDROM then begin // Aqui usamos la letra para lo que queramos ShowMessage('Esto es un CD-ROM '+Letra+':\'); end; end;
var Letra: Char; begin for Letra:= 'A' to 'Z' do if GetDriveType(Pchar(Letra+':\')) = DRIVE_CDROM then begin // Aqui usamos la letra para lo que queramos ShowMessage('Esto es un CD-ROM '+Letra+':\'); end; end;