En slags søge algoritme..

denne rutine scaner din disk :

procedure TDiskScanner.ScanFiles( const aPath : String; Subs : Boolean; const L : TStrings );
VAR
  S  : TSearchRec;
  CPath : String;
begin
  Application.ProcessMessages;
  ChDir(aPath);
  GetDir(0,CPath);
  if FindFirst(IncludeTrailingPathDelimiter(CPath)+FMask,faANYFILE,S) = 0 then
  repeat
      if ( S.Attr and faSysFile = 0 ) and ( S.Attr and faDIRECTORY = 0 ) and
        ( S.Attr and faVolumeID = 0 ) and ( S.Name <> '.' ) and ( S.Name <> '..' ) then
      begin
        // Her er filnavn - IncludeTrailingPathDelimiter(CPath)+S.FindData.cFileName
      end;
  until FindNext(S) <> 0;
  FindClose(S);

  if Subs and ( FindFirst('*.*'{FMask},faDIRECTORY,S) = 0 ) then
  repeat
      if ( S.Attr and faDIRECTORY <> 0 ) and ( S.Name <> '.' ) and ( S.Name <> '..' ) then
      begin
        Inc(FLevel);
        ScanFiles(IncludeTrailingPathDelimiter(CPath)+S.Name,Subs,L);
        Dec(FLevel);
        ChDir('..');
      end;
  until FindNext(S) <> 0;
  FindClose(S);
end;

ikke rigtigt det jeg ledte efter men det er lang tid siden nu og jeg må hellere se at komme af med det åbne spørgsmål når folk ikke svare alligevel :)

nå ja, og tak for den scan ting.. den fik jeg brug for til noget andet ;)