Detectar la Unidad de CD

[Tonio]

He buscado, pero no lo encuentro.
¿Como puedo saber, en un programa Delphi, en que Unidad se encuentra un CD determinado?.
Se está ejecutando el programa, entonces en uno de los lectores de CD, se supone que hay más de uno, se introduce un CD, ¿como puedo detectar y saber que Unidad es?. Necesito saber la Unidad para que el programa lea de esa Unidad y no lo intente con otra.
Gracias de antemano.
Un saludo.
Tonio.

[unreal4u]

te mando algunas páginas donde podrías consultar:

http://www.swissdelphicenter.ch/torr...ode.php?id=663
http://www.swissdelphicenter.ch/torr...ode.php?id=124

Fácilmente explicado:
http://www.greatis.com/delphicb/tips...s-cddrive.html
http://www.greatis.com/delphicb/tips...s-cdlabel.html

lamentablemente las páginas están en inglés; pero es casi puro código, así que eso se entiende a nivel internacional... en todo caso, en google pones "get cd drive delphi", y hay hartos resultados más, a lo mejor hay algunos en castellano...

[Tonio]

Dándole vueltas y vueltas, viendo todas las páginas que me dices, más la búqueda en Internet, he conseguido solucionar el problema, mezclando un par de soluciones, pero ya está funcionando.
Tambien he recurrido a Trucomanía.
Gracias.
Un saludo.
Tonio

[roman]

Empezado por Tonio

he conseguido solucionar el problema, mezclando un par de soluciones, pero ya está funcionando.

Me alegra, y te invito a que expongas aquí la solución final para quienes en un futuro requieran algo similar.

// Saludos

[Tonio]

Aquí va, leí todas las paginas que encontré hablan de esto, las que me dio unreal4u en su respueste y las que encontré con la frase que me ponía, 'get .... ', hice unas pruebas y ha salido esto.

El programa es para tener en un CD o DVD las utilidades que normalmente más utiliza cada uno, e instalarlos desde él, y si hay mas de una Unidad Cdrom saber en cual están esas utilidades.

Seguramente hay soluciones más fáciles, pero yo no las he encontrado.

No recuerdo de donde saqué el siguiente procedimiento, puede ser de Trucomanía.

procedure TForm1.PillaUnidades(Lista:TStrings);
var
Buffer : Pchar;
Largo : integer;
i, z : integer;
sTemp : String;
begin
Largo:=GetLogicalDriveStrings(0,Buffer);
GetMem(Buffer,Largo);
GetLogicalDriveStrings(Largo,Buffer);
sTemp:='';

for i:=0 to Largo do
begin
if Buffer[i]<>#0 then sTemp:=sTemp+Buffer[i]
else
begin
Lista.Append(sTemp);
sTemp:='';
end;
end;
Freemem(Buffer);

{Esta parte se la he agregado yo,
es decir no venía en el original}

For z := 0 to 4 do
begin
if not FileExists(Lista[z]+'Unico.txt') then
else
begin

// Cual Uni es una variable pública.

CualUni := Lista[z];
Break ;
end;
end;
end;


procedure TForm1.FormShow(Sender: TObject);
begin

{Como el Procedure crea un objeto TStrings, se muestra en Memo1, el cual va 'escondido' en el project 'detras' de un TPanel del mismo, en el que van los números de serie.
Al mostrar el projec se ejecuta el procedimiento}

PillaUnidades(Memo1.Lines);
end;

Ejemplo:

procedure TForm1.NeroEspPClick(Sender: TObject);
begin
WinExec(Pchar(CualUni+'Nero\NBR63120ESP.EXE'),1);
//O el ejecutable que se desee
end;

En el CD se pone un fichero, en este caso Unico.txt, está vacio, para saber si ese es nuestro CD, no hay otro.

E utilizado la unit UIApp, está comentada en el foro, en la página de Roman, porque se ejecutaba tres veces, la causa no la sé, pero ahora solamente se ejecuta una.

Hace poco he tenido que formatear e Disco duro y si se es un poco desordenado, ya sabéis lo que cuesta encontrar los progrmas a instalar, por lo menos a mi, me refiero a los de tipo Nero, Zip, bueno utilidades.

Si alguien lo mejora me sentiré satisfecho.

Gracias a todas vuestras ayudas y espero sirva de algo a otros.
Un saludo
Tonio

[roman]

Pues no sé si te interese pero hice un código que te detecta el momento en que un cd se inserta o se extrae. Pensé que podría servirte ya que podrías detectar cuando el usuario mete el cd y captar en ese momento la unidad en la que lo metió (esto lo hace el código que te digo) y ya de ahí examinar dicha unidad en busca del archivo que mencionas para determinar si es el cd correcto.

Si te interesa dimelo para que lo publique.

// Saludos