盒子论坛 v2.1

procedure TMainForm.GetFolder(Folder:string);
var
  i,l1,startindex:integer;
  ffd:WIN32_FIND_DATA;
  Buffer:array [0..MAX_PATH] of Char;
  Item,FirstURL,MenuItem:TMenuItem;
  FileName,Dest:String;
  hFind,Len:THANDLE;

  tiaostr1,localext:string;
begin
startindex:=0;
l1:=length(Folder);
if(Folder[l1] <> '\')  then   Folder := Folder + '\';
Dest:= Folder + '*.*';
hFind:=FindFirstFile(Pchar(Dest), ffd);
    if(hFind>0) then
    begin//1
        repeat
            if(ffd.cFileName[0] <> '.') then
            begin//3
                FileName := Folder + ffd.cFileName;
                // 读取文件夹
                if((ffd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY)>0) then
                begin//5
                    Memo1.Lines.Add('目录:'+FileName);
                    GetFolder(FileName);
                    end//5
                    else
                    begin//10
                      Memo1.Lines.Add('文件:'+FileName);
                     end;//10
                    StatusBar.SimpleText :=FileName;
                    StatusBar.Update ;
                end;//3
        until not (FindNextFile(hFind,ffd));
        Windows.FindClose(hFind);
    end;//1
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
Memo1.Lines.Clear ;
GetFolder('c:\');
end;
----------------------------------------------

作者：

shiro (比卡丘)	★☆☆☆☆	-
	普通会员

2003/12/26 17:03:18

3楼：

谢谢COMS哥~ ^O^
----------------------------------------------
巧克力PIKA

信息

登陆以后才能回复