Pascalban kiterjesztés alapján történő fájlkeresés?

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils, Classes;

var

FileList: TStringList;

i: integer;

procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string);

var

SR: TSearchRec;

IsFound: Boolean;

begin

if StartDir[length(StartDir)] <> '\' then StartDir := StartDir + '\';

IsFound := FindFirst(StartDir + FileMask, faAnyFile-faDirectory, SR) = 0;

while IsFound do

begin

FilesList.Add(StartDir + SR.Name);

IsFound := FindNext(SR) = 0;

end;

FindClose(SR);

end;

begin

FileList := TStringList.Create;

FindFiles(FileList, 'c:\Delphi\MouseSystemHook\', '*.pas');

for i := 0 to FileList.Count - 1 do WriteLn(FileList[i]);

FileList.Free;

ReadLn;

end.

Az 'eredményt' a Filelist nevű StringListben kapod meg.

Ha alkönytárakban is akarsz akkor: [link]