El truco 47 de Trucomania tiene el siguiente ejemplo, que sirve para saber de que tipo es una unidad:
Código Delphi
[-]
function TipoDeDisco(RaizDisco: string): string;
var
i: word;
begin
i := GetDriveType(PChar(LowerCase(RaizDisco)));
case i of
0: result := 'no puedo determinarlo';
1: result := 'no existe';
DRIVE_REMOVABLE: result := 'floppy/extraible';
DRIVE_FIXED: result := 'disco fijo';
DRIVE_REMOTE: result := 'unidad de red';
DRIVE_CDROM: result := 'cd-rom';
DRIVE_RAMDISK: result := 'disco-ram';
end;
end;
El llamado a esta función es, por ejemplo:
Código Delphi
[-]
Label1.Caption:=TipoDeDisco('a:\');
Y la recomendación que hay mas abajo es la siguiente:
Cita:
Podrias utilizarla también para buscar la unidad de CD-ROM del PC (pero cuidado, no basta con que
busques la primera que encuentres, podria haber más de una instalada).
Si tu aplicación extrae datos de un CD-ROM y necesitas saber si está insertado y en que unidad,
puedes primero buscar todas las unidades de tipo cd-rom, y, finalmente, buscar en todas ellas un
fichero determinado que sepas que existe en tu CD-ROM, así no habrá dudas.
|
Creo que ese truco se acopla a lo que necesitas. espero te sirva
.