Probiers mal so:
Delphi-Quellcode:
var i:integer; attribs:tSearchRecord; pfad:string;
begin
// anderer Code
i:=findfirst(pfad,faAnyFile,attribs); // Verzeichnisse suchen
while (i=0) and (fm.aTest.tag=1) do begin // fm.aTest.tag=0 bedeutet Abbruch
if ((attribs.name<>'.') and (attribs.name<>'..') and ((attribs.attr and faDirectory) <> 0)) then begin
application.processMessages;
slDirDirs.Add(pfad+attribs.Name+'\'); inc(cDirs); // Verzeichnis in StringList speichern
end;
i:=findnext(attribs)
end;
findclose(attribs);
Wie du darauf kommst die $10 zu verwenden, will ich erst gar nicht wissen, es ist üblich die vordefinierten Konstanten zu verwenden.
Desweiteren werden erst alle Dateien (faAnyFile) gefunden und nur wenn faDirectory in den Attributen vorkommt wird die Datei hinzugefügt.