procedure GetDirectories(list: TlistView; Directory: string; Item: Tlistitem; IncludeFiles: boolean);
var
SearchRec: TSearchRec;
begin
list.Items.BeginUpdate;//准备更新
list.Items.Clear; //清空list内容
if Directory[length(Directory)] <> ''''\'''' then //判断路径
Directory := Directory ''''\''''; //设置路径
if FindFirst(Directory ''''*.*'''',faDirectory,SearchRec) = 0 then begin
repeat
if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> ''''.'''') then
begin
if (SearchRec.Attr and faDirectory > 0) then begin Item := list.Items.Add; //增加item
item.Caption:=SearchRec.Name;
item.ImageIndex:=6;
end;
GetDirectories(list,Directory SearchRec.Name,Item,IncludeFiles);
end
else
if IncludeFiles then
if SearchRec.Name[1] <> ''''.'''' then
begin
item:=list.Items.Add;
item.Caption:=SearchRec.Name;
item.ImageIndex:=6;
end;
until FindNext(SearchRec) <> 0;
//FindClose(SearchRec);
end;
list.Items.EndUpdate;
end;
定义Directory：
procedure makedir(modulname,pathname,dirname,filepath:string);//创建目录（共4级，朋友如果觉得用得上的话，可以自己加参数）
begin
try
if not directoryexists(frootpath modulname) then
createdir(FRootPath modulname);
if not DirectoryExists(FRootPath modulname ''''\'''' pathname) then
createdir(FRootPath modulname ''''\'''' pathname);
if not directoryexists(FRootPath modulname ''''\'''' pathname ''''\'''' dirname) then
createdir(FRootPath modulname ''''\'''' pathname ''''\'''' dirname);
if filepath<>'''''''' then
if not directoryexists(FRootPath modulname ''''\'''' pathname ''''\'''' dirname ''''\'''' filepath) then
createdir(FRootPath modulname ''''\'''' pathname ''''\'''' dirname ''''\'''' filepath)
except
On E:Exception do begin
abort;
end;
end;
banjin.N21.Enabled:=true;
liucheng.MenuItem1.Enabled:=true;
yanzheng.N21.Enabled:=true;
banjin.SpeedButton1.Enabled:=true;
liucheng.SpeedButton1.Enabled:=true;
yanzheng.SpeedButton1.Enabled:=true;
banjin.toolbutton1.Enabled:=true;
liucheng.toolbutton1.Enabled:=true;
yanzheng.toolbutton1.Enabled:=true;
if filepath='''''''' then
filespath:=FRootPath modulname ''''\'''' pathname ''''\'''' dirname ''''\'''' filepath else
filespath:=FRootPath modulname ''''\'''' pathname ''''\'''' dirname ''''\'''' filepath ''''\'''';
banjin.StatusBar1.Panels[0].Text:=''''你目前所在的位置:'''' filespath;
liucheng.StatusBar1.Panels[0].Text:=''''你目前所在的位置:'''' filespath;
yanzheng.StatusBar1.Panels[0].Text:=''''你目前所在的位置:'''' filespath;
end;
如果是二级或一级目录的话，只要加上if filepath<>'''''''' then
类似的判断就可以了，例如：makedir(''''设计规范'''',''''电子件'''',''''电路设计规范'''','''''''');
注：在这里写的两个过程没有实现读取windows的图标，如果想实现这一功能的话要自己动手写了 ^_^
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
