Filtrar unidades en ShellTreeView

[MaMu]

Se puede hacer que un ShellTreeView no muestre una unidad de disco rígido? Me gustaria poder hacer que solo muestre las unidades de discos Removibles que se encuentren en el sistema.

Saludos

[[cHackAll]]

Código Delphi [-]
procedure TForm1.ShellTreeView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
begin
 CanAdd := GetDriveType(PChar(AFolder.PathName)) = DRIVE_REMOVABLE;
end;

0j0; Root = 'rfMyComputer'

saludos

[MaMu]

Empezado por cHackAll

Código Delphi [-]procedure TForm1.ShellTreeView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
begin
CanAdd := GetDriveType(PChar(AFolder.PathName)) = DRIVE_REMOVABLE;
end;




0j0; Root = 'rfMyComputer'

saludos

Intuitivamente, si quiero mostrar un CD-ROM seria asi?

Código Delphi [-]
 
procedure TForm1.ShellTreeView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);

begin
CanAdd := GetDriveType(PChar(AFolder.PathName)) = DRIVE_CDROM; 
end;

Saludos

[[cHackAll]]

Empezado por mamu

Intuitivamente, si quiero mostrar un CD-ROM seria asi? [codigo]

Si, mejor con "<> DRIVE_FIXED"

Saludos

[MaMu]

Empezado por cHackAll

Si, mejor con "<> DRIVE_FIXED"

Saludos

Osea, si quiciara mostrar solamente DRIVE_REMOVABLE y DRIVE_CDROM, es decir ambas, como seria la sintaxis?

Saludos

[[cHackAll]]

Empezado por MaMu

Osea, si quiciara mostrar solamente DRIVE_REMOVABLE y DRIVE_CDROM, es decir ambas, como seria la sintaxis?

Saludos

Código Delphi [-]
procedure TForm1.ShellTreeView1AddFolder(Sender: TObject; AFolder: TShellFolder; var CanAdd: Boolean);
begin
 CanAdd := GetDriveType(PChar(Copy(AFolder.PathName, 1, 2))) in [DRIVE_REMOVABLE, DRIVE_CDROM];
end;