Discussion :

[sematimo]

Bonjour à tous
Je cherche comment masquer les lecteurs vides dans un ShellTreeView.
Si je click sur mon lecteur dvd par exemple sans dvd, j'ai une erreur.

[sematimo]

Bon j'ai contourné le problème.
J'ai copié shellctrls.pas de lcl vers le dossier de mon projet.
Ensuite j'ai modifié shellctfls ligne 1467:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TCustomShellListView.SetRoot(const Value: string);
begin
  if FRoot <> Value then
  begin
    //Delphi raises an unspecified exception in this case, but don't crash the IDE at designtime
    if not (csDesigning in ComponentState)
       and (Value <> '')
       and not DirectoryExistsUtf8(ExpandFilenameUtf8(Value)) then
       begin
        Clear;//vide ma shelllistview
         exit;
       end;
      // Raise EInvalidPath.CreateFmt(sShellCtrlsInvalidRoot,[Value]);

Les lecteurs vides s'affichent toujours mais je n'ai plus de message qui s'affiche.