文件名称：delphi_遍历文件夹
文件大小：219KB
文件格式：RAR
更新时间：2014-04-13 05:15:39
delphi 遍历文件夹
while SRI = 0 do begin if (SR.Name = '.') or (SR.Name = '..') then begin //不用做 end else if SR.Attr = faDirectory then begin if CheckBox1.Checked then begin Start(APath + '\' + sr.Name, SR.Name, ndRoot); end; end else begin Num := Num + 1; Label2.Caption := IntToStr(Num); ListBox1.Items.Add(SR.Name); nd := TreeView1.Items.AddChild(ndRoot, SR.Name); end; SRI := FindNext(SR); end;
【文件预览】：
遍历文件夹
----UnitMain.pas(2KB)
----SearchFolder.exe(513KB)
----UnitMain.dcu(7KB)
----SearchFolder.dpr(240B)
----SearchFolder.identcache(236B)
----SearchFolder.dproj(4KB)
----UnitMain.dfm(2KB)
----SearchFolder.dproj.local(816B)
----SearchFolder.res(5KB)