求Delphi遍历全盘gif图片的代码

Question

希望高手们不吝赐教！！！

Answer 1

procedure  DirExecute(ROOT_PATH:String); 
var 
  sr:   TSearchRec; 
  Item   :   TListItem; 
begin 
  SetCurrentDir(ROOT_PATH); 
  if FindFirst('*', faArchive, sr) = 0 and (LowerCase(RightStr(sr.Name,4)='.gif') then
  begin
    repeat
      Item:=LocalFileList.Items.Add;
      Item.ImageIndex:=1;
      Item.Caption:=sr.Name;
      Item.SubItems.Add('');
      Item.SubItems.Add(IntToStr(sr.Size));
      Item.SubItems.Add(DateTimeToStr(sr.Time));
    until FindNext(sr) <> 0;
    FindClose(sr);
end;

Answer 2

procedure SearchFileEx(const Dir, Ext: string; Files: TStrings);
 var
 Found: TSearchRec;
 Finished: integer;
begin  Finished := FindFirst(Dir + '\'+'*.*', faanyfile, Found);
  while (Finished = 0)  do
  begin
    if ((Found.Name <> '.') and (Found.Name <> '..')) then
    begin
     if (Found.Attr and faDirectory) = faDirectory then
        SearchFileEx(Dir + '\'+ Found.Name,Ext,Files)
     else
     if  Ext='*.*' then    Files.Add(Dir + '\'+ Found.Name)
        else
           if Pos(UpperCase(Extractfileext(Found.Name)), UpperCase(Ext)) > 0 then
                      Files.Add(Dir + '\'+ Found.Name);
    end;
    Finished := FindNext(Found);
  end;  FindClose(Found);end;