Utilisation de ShellTreeView qui n'est pas documenté au moins dans Delphi 7 personnel

Avec le code qui suit je récupère dans l'arborescence des fichiers, le répertoire qui a été cliqué:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
procedure TDirForm.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  with Node do begin
     if ( AbsoluteIndex<> 0 ) then
       Répertoire := ShellTreeView1.Folders[AbsoluteIndex].PathName;
  ...
Je voudrais aussi pouvoir faire l'inverse et je n'y arrive pas.

A partir d'un répertoire donné, comment prépositionner/sélectionner celui-ci lors de l'affichage de l'arborescence
qui par défaut n'est pas développé? L'utilisateur doit donc à chaque fois développer chaque noeud ce qui est très pénalisant.

Merci pour vos réponses