Простейший сканер диска

Вот пример, который ищет мп3 файлы на жестком диске...

unit
 Audit1;

interface

uses
 windos;

var

  dest: string
;

procedure
 dorecurse(dir: string
);

implementation

{$R *.DFM}

procedure
 Process(dir: string
; Searchrec: tsearchrec);
begin

  showmessage(Searchrec.name);
  case
 Searchrec.attr of

    $10:
      if
 (searchrec.name <> '.') and
 (searchrec.name <> '..') then

      begin

        dorecurse(dir + '' + searchrec.name);
        writeln(dir);
      end
;
  end
;
end
;

procedure
 Dorecurse(dir: string
);
var

  Searchrec: Tsearchrec;
  pc: array
[0..79] of
 Char;
begin

  StrPCopy(pc, dir + '*.mp3');
  FindFirst(pc, FaAnyfile, SearchRec);
  Process(dir, SearchRec);
  while
 FindNext(SearchRec) <> -18 do

  begin

    Process(dir, SearchRec);
  end
;
end
;

procedure
 startsearch;
begin

  dorecurse(paramstr(1));
end
;

begin

  startsearch;
end
.

Другое по теме:

• Как расшарить диск
• Как проверить находится ли файл на локальном диске
• Как проверить готовность диска А