Saber que tipo de Drive es con un TDriveComboBox

[cloayza]

Utiliza la funcion GetDriveType, debes incluir la ShellApi.

Ejemplo:

Código Delphi [-]
Var
DType: Integer;
s:String;
disco:string;
Begin
       disco:='C:\';
       DType:=GetDriveType(PChar(disco));
       case (DType) Of
             0  :s:='No puede ser determinado'
             1  :s:='No existe'
             DRIVE_REMOVABLE:s:='Removible'
             DRIVE_FIXED    :s:='Disco no removible';drive.
             DRIVE_REMOTE    :s:='Disco de red';
             DRIVE_CDROM    :s:='CD-ROM';
             DRIVE_RAMDISK  :s:='Ram disk'
       end;
       showmessage(s);
end;

Saludos desde
Concepcion-Chile

[[escafandra]]

La API GetDriveType se maneja así: (Ayuda de Builder)

The GetDriveType function determines whether a disk drive is a removable, fixed, CD-ROM, RAM disk, or network drive.

UINT GetDriveType(
LPCTSTR lpRootPathName // address of root path
);


Parameters

lpRootPathName

Points to a null-terminated string that specifies the root directory of the disk to return information about. If lpRootPathName is NULL, the function uses the root of the current directory.



Return Values

The return value specifies the type of drive. It can be one of the following values:

Value Meaning
0 The drive type cannot be determined.
1 The root directory does not exist.
DRIVE_REMOVABLE The drive can be removed from the drive.
DRIVE_FIXED The disk cannot be removed from the drive.
DRIVE_REMOTE The drive is a remote (network) drive.
DRIVE_CDROM The drive is a CD-ROM drive.
DRIVE_RAMDISK The drive is a RAM disk.

Saludos.

[Negriz]

Ok gracias a los dos, voy a probar.

[Negriz]

hey? la manera de usarlo seria asi:

ya tengo un DriveComboBox llamado D_Drive; seria aglo asi:

AnsiString x = D_Drive->Drive;

if( ( GetDriveType( (x + "://").c_str() ) != DRIVE_CDROM )

{
...
}

asi lo puedo usar?
para la memoria usb se usa el de:
DRIVE_REMOVABLE?

gracias

[[escafandra]]

...Pues si, así es.

Mira esto.

Saludos.

[Negriz]

si ya lo entendi, muchas gracias por la ayuda; lo que pasa es que tretorna un entero por cada uno de los valores que me diste:

0 The drive type cannot be determined.
1 The root directory does not exist.
2 : DRIVE_REMOVABLE The drive can be removed from the drive.
3 : DRIVE_FIXED The disk cannot be removed from the drive.
4 : DRIVE_REMOTE The drive is a remote (network) drive.
5 : DRIVE_CDROM The drive is a CD-ROM drive.
6 : DRIVE_RAMDISK The drive is a RAM disk.

muchas gracias fue muy utli.

saludos desde Colombia