Filtrar unidades en ShellTreeView

[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;