Como capturar la unidad de CD
Hola, quisiera saber si hay alguna forma de capturar la unidad de cd-rom, p.e saber si es la unidad D:\,E:\ o F:\, gracias.
1 Respuesta
Respuesta de mbarbero
1
function TipoDeDisco(RaizDisco: string): string;
var
i: word;
begin
i := GetDriveType(PChar(LowerCase(RaizDisco)));
case i of
{ Unknown }
0: result := 'no puedo determinarlo';
{ it doesn't exist }
1: result := 'no existe';
{ Floppy }
DRIVE_REMOVABLE: result := 'floppy/extraible';
{ Fixed }
DRIVE_FIXED: result := 'disco fijo';
{ Net unit }
DRIVE_REMOTE: result := 'unidad de red';
{ CD-ROM }
DRIVE_CDROM: result := 'cd-rom';
{ Ram Drive }
DRIVE_RAMDISK: result := 'disco-ram';
end;
end;
Es más amplio de lo que me pedís, pero te va a servir mejor. (Función extraída de Trucomanía).
Si te sirvió, califícame en TodoExpertos. Si no, avisame en qué más te puedo ayudar.
Marcelo
var
i: word;
begin
i := GetDriveType(PChar(LowerCase(RaizDisco)));
case i of
{ Unknown }
0: result := 'no puedo determinarlo';
{ it doesn't exist }
1: result := 'no existe';
{ Floppy }
DRIVE_REMOVABLE: result := 'floppy/extraible';
{ Fixed }
DRIVE_FIXED: result := 'disco fijo';
{ Net unit }
DRIVE_REMOTE: result := 'unidad de red';
{ CD-ROM }
DRIVE_CDROM: result := 'cd-rom';
{ Ram Drive }
DRIVE_RAMDISK: result := 'disco-ram';
end;
end;
Es más amplio de lo que me pedís, pero te va a servir mejor. (Función extraída de Trucomanía).
Si te sirvió, califícame en TodoExpertos. Si no, avisame en qué más te puedo ayudar.
Marcelo
