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/torry/showcode.php?id=663
http://www.swissdelphicenter.ch/torry/showcode.php?id=124

Fácilmente explicado:
http://www.greatis.com/delphicb/tips/lib/drives-cddrive.html
http://www.greatis.com/delphicb/tips/lib/drives-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]

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

[Tonio]

Como supongo que será más profesional que el mio, no me importaría que lo publicases, además siempre viene bien para aprender, porque algo siempre se aprende.
Muchas gracias por tu interés.
Un saludo.
Tonio.

[roman]

Pues lo de profesional lo dudo porque apenas estuve investgando de eso. Y desde luego no es que sea mejor que lo tuyo sino que es distinto. Con mi código lo que haces es que tu aplicación puede estar ya ejecutándose y si alguien inserta un cd tú recibiras un evento que te pasará el drive en donde se insertó.

Este código lo englobé en la componente TCdChange (http://www.clubdelphi.com/users/roman/cdchange.php) que puedes ver y bajar de mi página.

// Saludos

[radenf]

Pues lo de profesional lo dudo porque apenas estuve investgando de eso. Y desde luego no es que sea mejor que lo tuyo sino que es distinto. Con mi código lo que haces es que tu aplicación puede estar ya ejecutándose y si alguien inserta un cd tú recibiras un evento que te pasará el drive en donde se insertó.

Este código lo englobé en la componente TCdChange (http://www.clubdelphi.com/users/roman/cdchange.php) que puedes ver y bajar de mi página.

// Saludos

Estimado Roman :

Es posible obtener tu componente, pues quisiera utilizarlo en mi proyecto y el link no funciona.
Saludos y gracias.

[nlsgarcia]

radenf,


...Es posible obtener tu componente...


No conozco el Componente TCDChange pero puedo sugerirte otra solución equivalente.

Revisa este código:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MMSystem, ShellAPI;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
ListBox1: TListBox;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
{ Private declarations }
public
{ Public declarations }
end;

type
PDevBroadcastHdr = ^TDevBroadcastHdr;
TDevBroadcastHdr = packed record
dbcd_size: DWORD;
dbcd_devicetype: DWORD;
dbcd_reserved: DWORD;
end;

type
PDevBroadcastVolume = ^TDevBroadcastVolume;
TDevBroadcastVolume = packed record
dbcv_size: DWORD;
dbcv_devicetype: DWORD;
dbcv_reserved: DWORD;
dbcv_unitmask: DWORD;
dbcv_flags: Word;
end;

const
DBT_DeviceArrival = $8000;
DBT_DeviceRemoveComplete = $8004;
DBTF_Media = $0001;
DBT_DevTyp_Volume = $0002;

var
Form1: TForm1;

implementation

{$R *.dfm}

// Obtiene la Letra de una Unidad de CDROM:
function GetDrive(pDBVol: PDevBroadcastVolume): string;
var
i: Byte;
Maske: DWORD;
begin
if (pDBVol^.dbcv_flags and DBTF_Media) = DBTF_Media then
begin
Maske := pDBVol^.dbcv_unitmask;
for i := 0 to 25 do
begin
if (Maske and 1) = 1 then
Result := Char(i + Ord('A')) + ':';
Maske := Maske shr 1;
end;
end;
end;

// Detecta Cambios en Unidades de CDROM:
procedure TForm1.WMDeviceChange(var Msg: TMessage);
var
Drive: string;
begin
case Msg.wParam of
DBT_DeviceArrival:
if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
begin
Drive := GetDrive(PDevBroadcastVolume(Msg.lParam));
If Drive <> '' then
ShowMessage('CD inserted in Drive ' + Drive);
end;
DBT_DeviceRemoveComplete:
if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DevTyp_Volume then
begin
Drive := GetDrive(PDevBroadcastVolume(Msg.lParam));
If Drive <> '' then
ShowMessage('CD removed from Drive ' + Drive);
end;
end;
end;

// Abrir un CD-ROM:
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle) ;
end;

// Cerrar un CD-ROM:
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle) ;
end;

// Lista las Unidades de CDROM:
procedure TForm1.Button3Click(Sender: TObject);
var
N: Byte;
Drv: string;
Drives: set of 0..25;
begin
ListBox1.Clear;
Integer(Drives):=GetLogicalDrives;
for N:=0 to 25 do
if N in Drives then
begin
Drv:=Char(N+Ord('A'))+':';
if(GetDriveType(PChar(Drv))=DRIVE_CDROM) then
ListBox1.Items.Add('Device '+ Drv + ' is a CD-Rom Drive');
end;
end;

end.

El código anterior realiza tres funciones orientadas a las unidades de CDROM:

1- Detecta cambios en las unidades de CDROM y obtiene la letra de la unidad.

2- Permite Abrir y Cerrar un CDROM por medio de código.

3- Lista las Unidades de CDROM.


El código esta disponible en el link: http://terawiki.clubdelphi.com/Delphi/Ejemplos/Win-API/?download=CDROM+Functions.rar

Quizás esta solución se pueda adaptar a tu proyecto.

Espero sea útil :)

Nelson.

[radenf]

Muchas gracias [nlsgarcia]

Lo probaré y te cuento
Saludos

[roman]

Estimado Roman :

Es posible obtener tu componente, pues quisiera utilizarlo en mi proyecto y el link no funciona.
Saludos y gracias.

Aquí (http://romansg.clubdelphi.com/index.php?pg=delphi_componentes#cdchange) hay una copia.

// Saludos

[radenf]

Muchas gracias roman.
Saludos

[radenf]

Opté por utilizar parte del código propuesto por [nlsgarcia], que es muy similar al del componente tan gentilmente enviado por roman y funciona perfecto.
Muchas gracias a ambos.
Saludos