Arquivos - localizando (obter listagem)

Top  Previous  Next

procedure Directory(var StringList : TStringList; const Arquivos : string; IncluirPasta:Boolean = False);

var

   Procura : TSearchRec;

   Found :   Integer;

begin

  StringList.Clear;

  Screen.Cursor:=-11;

  Found := FindFirst(Arquivos,faArchive,Procura);

  while Found = 0 do

  begin

    if IncluirPasta then

      StringList.Add(ExtractFilePath(Arquivos) + Procura.Name)

    else

      StringList.Add(Procura.Name);

    Found := FindNext(Procura);

  end;

  Screen.Cursor:=0;

  FindClose(Procura);

end;

.