Detectar la Unidad de CD

[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