DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: webb123
今日帖子: 34
在线用户: 21
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/7/10 8:05:47
标题:
文件夹怎么无端变成文件呢,怪事? 浏览:2267
加入我的收藏
楼主: 文件夹怎么无端变成文件呢,怪事?

procedure TForm2.dispdir4(spath:string;node:TTreeNode);
var
 cnode:TTreeNode;
 ffd:WIN32_FIND_DATA ;
 hFind:THandle;
 Dest:string;
 hstr:string;
begin
if copy(spath,length(spath),1)<>'\' then
   spath:=spath+'\';
Dest:=Spath+'*.*';

  hFind:=FindFirstFile(PChar(Dest),ffd);
  if hFind>0 then
   begin//1
    hstr:=ffd.cFileName;
     if ffd.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY then
      begin//2
       if (ffd.cFileName[0]<>'.') then
        begin//3
          cnode:=tv1.Items.AddChild(Node,hstr );
          cnode.ImageIndex :=1;
          cnode.SelectedIndex :=cnode.ImageIndex;
          dispdir4( spath+hstr ,cnode);
        end;//3
      end//2
      else
      begin//22
        cnode:=tv1.Items.AddChild(Node,hstr );
        cnode.ImageIndex :=0;
        cnode.SelectedIndex :=cnode.ImageIndex;
      end;//22
  end;//1
 while FindNextFile(hFind,ffd)=true  do
  begin//4
   hstr:=ffd.cFileName;
     if ffd.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY then
      begin//2
       if (ffd.cFileName[0]<>'.') then
         begin//3
          cnode:=tv1.Items.AddChild(Node,hstr );
          cnode.ImageIndex :=1;
          cnode.SelectedIndex :=cnode.ImageIndex;
          dispdir4( spath+hstr,cnode);
         end;//3
      end//2
      else
      begin//22
        cnode:=tv1.Items.AddChild(Node,hstr );
        cnode.ImageIndex :=0;
        cnode.SelectedIndex :=cnode.ImageIndex;
      end;//22
  end;//4

end;
我用这段读入C:\Documents and Settings\Administrator到

treeview中后发现一个问题:1 Cookies文件夹,

2 如果文件夹是只读或隐藏的都会被读成文件的形式如图:

http://www.bwkj.net/ddiscussion/findnexterror1.jpg

我的程序应该如何修正?

----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 zizii (高高高级馒头) ★☆☆☆☆ -
神秘会员
2003/7/10 9:42:38
1楼: ffd.dwFileAttributes 包含 FILE_ATTRIBUTE_DIRECTORY 而不要用等于 FILE_ATTRIBUTE_DIRECTORY 试试看,估计是这个问题。
----------------------------------------------
维护世界和平,共创美好盒子。
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/7/12 22:57:18
2楼: 包含 :要怎么写啊?
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行652.3438毫秒 RSS