Rafraichir dynamiquement TShellTreeView

**Bernard B** · 25/05/2011, 21h32

Bonsoir,
J'utilise TShellTreeView dans une application, il fonctionne parfaitement, sauf qu'il ne prend pas en compte les modifications (ajout de répertoires, connexion de clef ou de disque USB) après le démarrage de l'application, ce qui me gène énormément.
Comment forcer un rafraichissement du contenu, la prise en compte des nouveaux répertoires... ?
Y a-t-il un équivalent qui le fait (avec support du réseau) ?

Merci

**Jipété** · 25/05/2011, 23h30

Salut,

J'avais trouvé ça il y a longtemps, la première option (F5) ne fonctionne pas,
je n'ai jamais eu le temps de me pencher longuement dessus...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ShellCtrls, ComCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    ShellTreeView1: TShellTreeView;
    procedure ShellTreeView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
    procedure RefreshTree;
    procedure RefreshDelayed(millisec2wait: integer);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ShellTreeView1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F5 then
//    ShellTreeView1.Refresh(ShellTreeView1.Items[0]);
    ShellTreeView1.Refresh(ShellTreeView1.Items.GetFirstNode);
end;
 
/////////
// from : http://www.nldelphi.net/Forum/showthread.php?t=20273
// mai 2011 : lien mort... :-(
 
procedure TForm1.RefreshTree;
begin
  ShellTreeView1.Refresh(ShellTreeView1.Items.GetFirstNode);
end;
 
procedure TForm1.WMDeviceChange(var Msg: TMessage);
const
  DBT_DEVICEARRIVAL = $8000; // system detected a new device
  DBT_DEVICEREMOVECOMPLETE = $8004;  // device is gone
begin
  inherited;
  case Msg.wParam of
    DBT_DEVICEARRIVAL: RefreshDelayed(0);
    DBT_DEVICEREMOVECOMPLETE: RefreshTree;
  end;
end;
 
procedure TForm1.RefreshDelayed(millisec2wait: integer);
var
  i: integer;
begin
  for i := 0 to millisec2wait do
  begin
    Sleep(1);
    Application.ProcessMessages;
  end;
  RefreshTree;
end;
 
end.

Enjoy !