TDIRECTORYLIST 如何显示隐藏目录

masterjames 2004-09-25 11:48:33
TDIRECTORYLIST 看不到隐藏目录
...全文
66 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
luke5678 2004-09-25
  • 打赏
  • 举报
回复
//如何显示隐藏文件

procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
RootPath: String;
I: Integer;
CurItem: TListItem;
begin
RootPath := 'G:\*.*';
I := 0;
if FindFirst(RootPath, faHidden, sr) = 0 then
begin
repeat
if (sr.Attr and faHidden) = sr.Attr then
begin
Inc(I);
CurItem := ListView1.Items.Add;
CurItem.Caption := IntToStr(I);
CurItem.SubItems.Add(sr.Name);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧