FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Detectar la Unidad de CD
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. |
#2
|
||||
|
||||
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... |
#3
|
|||
|
|||
Sobre detectar un CD
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 |
#4
|
||||
|
||||
Cita:
// Saludos |
#5
|
|||
|
|||
Detectar Unidad de CD
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 |
#6
|
||||
|
||||
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 |
|
|
|