como saber cual es la unidad de cd?

[crievep]

Despues de buscar con las posibles combinaciones de estas palabras :unidad+ cd no he encontrado como puedo saber cual es la letra que representa la unidad y/o unidades de cd instaladas. saber si es c:\, d:\ o z:\ en fin la que sea o si no existe (antiguos pc's)

Gracias por la posible ayuda
Si busque mal pido disculpas

[seoane]

Prueba con algo como esto:

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;

[crievep]

Probado y comprobado, Gracias