1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var
   Dir: PChar;
begin
   Dir := 'C:\Folders\*';
   SendMessage(ListBox1.Handle,
               LB_DIR,
               DDL_DIRECTORY +
               DDL_EXCLUSIVE +
               DDL_HIDDEN +
               DDL_READONLY +
               DDL_READWRITE +
               Integer(Dir));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
var
   Dir: PChar;
begin
   Dir := 'C:\Folders\*';
   SendMessage(ListBox1.Handle,
               LB_DIR,
               DDL_DIRECTORY +
               DDL_HIDDEN +
               Integer(Dir));					

1:
2:
3:
4:
5:
6:
7:
8:

    SendMessage(ListBox1.Handle,
               LB_DIR,
               DDL_DIRECTORY or
               DDL_EXCLUSIVE or
               DDL_HIDDEN or
               DDL_READONLY or
               DDL_READWRITE,
               Integer(Dir));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

function GetAllDirs(Suchverzeichnis: String; var Ergebnisliste: TStringList;
  IncludeSubDirs: Boolean): Boolean;
var
  Search: TSearchRec;
  //Suchinformationen der aktuellen Suche
  Verzeichnis: String;
  //Teile der Suchmaske einzeln
begin
  Result := False;
  //Zunächst False als Rückgabewert, damit dann nur auf True geändert
  //werden muss, wenn etwas gefunden wird
  Verzeichnis := IncludeTrailingPathDelimiter(Suchverzeichnis);
  if FindFirst(Verzeichnis + '*.*',fadirectory, Search)= 0 then begin
  //Wenn überhaupt ein Verzeichnis gefunden werden kann
    repeat
      if((search.attr and fadirectory) = fadirectory)
        and(search.name[1] <> '.') then begin
      //Wenn ein (Unter-) Verzeichnis vorliegt, in diesem nachschauen
        if IncludeSubDirs then
          GetAllDirs(Verzeichnis + Search.Name, Ergebnisliste, True);
        Ergebnisliste.Add(Verzeichnis + Search.Name);
        Result := True;
        //Wenn Dateien im rekursiven Aufruf gefunden wurden,
        //Rückgabewert auf True setzen
      end;
      Application.ProcessMessages;
      //Rechenzeit freigeben
    until FindNext(Search) <> 0;
    //Bis ein Fehlercode zurückgegeben wird, also keine passende
    //Verzeichnis mehr vohanden ist
  end;
  SysUtils.FindClose(search);
end;