用TreeView浏览目录

韩冰

void __fastcall TForm1::FormCreate(TObject *Sender) { 2 v; g& v- }0 Y% o1 w# pCurrentDir=GetCurrentDir(); ( s! Y' h" w5 C, G( A" ?2 jUpdateTreeView(); UpdateListView();

9 B3 T7 r" s# s* X: K0 [

} , P5 s) B0 Z% u9 R//--------------------------------------------------------------------------- void __fastcall TForm1::UpdateTreeView() { + O0 F D& t" S- cTTreeNode *rNode,*mNode; TreeView1->Items->Clear(); ( v5 ^. I( b) O0 n" A; jrNode=TreeView1->Items->Add(TreeView1->Selected,"我的电脑"); rNode->ImageIndex=1; 3 x6 u$ d3 _: @8 x" f" srNode->SelectedIndex=1; mNode=TreeView1->Items->AddChild(rNode,"A:"); & ]3 e4 }2 h0 a. n- C& TmNode->ImageIndex=2; + c$ G# G& f: o5 gmNode->SelectedIndex=2; AddDirectory("A:",mNode); for(int i=1;i<DriveComboBox1->Items->Count;i++) { : K; U$ K1 n" d$ H: W( A* U' vmNode=TreeView1->Items->AddChild(rNode,AnsiString(char('B'+i))+":"); * S, R$ D0 m" u9 ?mNode->ImageIndex=3; ' P N& P3 [3 u" M$ f# YmNode->SelectedIndex=3; % j( y! ^8 a: G: j( eAddDirectory(AnsiString(char('B'+i))+":",mNode); } } //------------------------------------------------------------------------ 6 b$ X; ?: ?; E8 `7 bvoid TForm1::AddDirectory(AnsiString path,TTreeNode *fNode) { TSearchRec sr; 7 L6 N+ S6 Z8 c8 d) ]) ~1 @8 r: G8 \TTreeNode *mNode; ; h- l4 A$ H k) t3 ~8 C; Rif(FindFirst(path+"\\*.*" ,faDirectory,sr)==0) { 0 o7 E! K, U& R/ @$ Pif(sr.Attr==faDirectory) { " G+ n- g( }0 a" ^2 Bif(sr.Name!="."&&sr.Name!="..") { - k1 E- v: v% O" u2 e8 C: N4 s1 fmNode=TreeView1->Items->AddChild(fNode,sr.Name); mNode->ImageIndex=0; 3 p) k7 l2 L% Q" MmNode->SelectedIndex=4; // AddDirectory(path+"\\"+sr.Name,mNode); } * b9 [7 `: ~- n9 j; R$ M& w; B} } 0 y7 w# g# X3 c- e- J% G& gwhile(FindNext(sr)==0) 4 A5 \' B9 R+ i9 F. I{ if(sr.Attr==faDirectory) { % w( F' t P' H# z* Bif(sr.Name!="."&&sr.Name!="..") & T% K6 x: G) y) ~* \5 F" `{ mNode=TreeView1->Items->AddChild(fNode,sr.Name); mNode->ImageIndex=0; * i' k; s. n. ^' j3 r1 ^mNode->SelectedIndex=4; // AddDirectory(path+"\\"+sr.Name,mNode); $ p6 Q' E' u5 h/ T5 Z} } : T0 _; H% W3 O* K3 g0 j} ( e$ @% t7 h) p+ x) j1 h3 ^4 yFindClose(sr); - S3 x. Z! j- p) R1 R}

, X0 J: p# g8 E, ~) K2 |

//--------------------------------------------------------------------

void __fastcall TForm1::TreeView1Changing(TObject *Sender, TTreeNode *Node, bool &AllowChange) { Screen->Cursor=crHourGlass; 1 x, N/ x2 B P& U+ `# qTSearchRec sr; . `( K) m: m8 g3 N& @TTreeNode *NodeTmp=Node; AnsiString DirName,DirTmp; . F" W1 j0 D' sDirName=Node->Text; for(int i=Node->Level;i>1;i--) * U% |: a, q/ ~: ?7 F) s. E{ NodeTmp=NodeTmp->arent; 3 e5 Z! P4 s& p Z( K- ]DirTmp=NodeTmp->Text; if(DirTmp.SubString(DirTmp.Length(),1)!="\\") ' o5 K# r& [. e' k1 s1 p$ a+ B7 E; UDirTmp+="\\"; DirName.Insert(DirTmp,0); } if(DirName.SubString(DirName.Length(),1)!="\\") DirName+="\\"; for(int j=0;j<Node->Count;j++) : R! _& H/ d$ J{ 1 l3 ? ~- P4 o' w9 Aif(Node->Item[j]->Count==0); . ? |) m/ c' J6 P5 N{ / Q) _: w! O0 ]1 Q% o5 A. M( gif (FindFirst(DirName+Node->Item[j]->Text+"\\*.*", faAnyFile, sr) == 0) { 2 o! K" z0 K; \5 B9 N" bdo 7 h! }) W. L/ m& @{ ' A/ p' Z6 i! X U. j3 ~//Node->Item[j]->ImageIndex=5; 9 ^/ F: t, n* ^7 g8 f- {//Node->Item[j]->SelectedIndex=4; if((sr.Attr&faDirectory)&&sr.Name!="."&&sr.Name!="..") { Node->Item[j]->ImageIndex=0; 2 Q& J* G1 m' B+ ANode->Item[j]->SelectedIndex=4; TreeView1->Items->AddChild(Node->Item[j],sr.Name); 3 G/ N" N% J! Q: P& w8 f- F2 Y} , [1 o) \" k, Y% f} while (FindNext(sr)==0); FindClose(sr); 4 Y8 h/ @$ Y% y: f% I- H7 v} 8 B5 J3 y+ x! r$ {} 1 s8 K i. ~1 t; e} Screen->Cursor=crDefault; }