Otener unidades de CD/DVD

[asegurpe]

Hola a todos,



Haber si alguien me puede ayudar. Necesito obtener las unidades de CD/DVD, es decir, una lista tipo "Nero", pero sin necesidad de tantos datos, unicamente que las enumere.


Gracias de antemano.



Saludos.

[dec]

Hola,

Revisa la guía de estilo de los Foros: no repitas hilos.

A ver qué tal te parece este procedimiento "inspirado" en una función que puede encontrarse en la propia ayuda de Delphi:

Código Delphi [-]
 procedure ListaUnidadesCD(var unidades: TStrings);
 resourcestring
   rsBarra = ':\';
 var
   unidad: Char;
 begin
   for unidad := 'A' to 'Z' do
     case GetDriveType(PChar(unidad + rsBarra)) of
      DRIVE_CDROM: unidades.Add(unidad + rsBarra);
     end;
 end;

[delphi.com.ar]

No se si tomará las de DVD, sino tendrías que fijarte que es lo que te da DriveType:

Código Delphi [-]
var
  dwDrives: set of 0..25;
  iDrive: Integer;
  sDriveName: string;
begin
  DWORD(dwDrives) := GetLogicalDrives;
  for iDrive := 0 to 25 do
  begin
    sDriveName := Char(65 + iDrive) + ':';
    if (iDrive in dwDrives) and (GetDriveType(PChar(sDriveName)) = DRIVE_CDROM) then
      Memo1.Lines.Add(sDriveName);
  end;