[Lazarus] ShellTreeView et lecteurs vides

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:

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.