如何在一个文件夹中使用用通配符(比如：*、%、_等)进行文件搜索，就像windows的文件搜索器一样，在现等，在线给分 ( 积分: 50 )

如何在一个文件夹中使用用通配符(比如：*、%、_等)进行文件搜索，就像windows的文件搜索器一样，在现等，在线给分

var
TmpPath, TmpName: string;
TmpSearchRec: TSearchRec;
begin
TmpPath := 'c:/abc/'+ '*.*';
if FindFirst(TmpPath, faAnyFile, TmpSearchRec) = 0 then
begin
repeat
TmpName := ExtractFileName(TmpSearchRec.Name);
if Pos('abc', TmpName) > 0 then {此处判断TmpName是否符合要求}
begin
......
end;
until FindNext(TmpSearchRec) <> 0;
FindClose(TmpSearchRec);
end;
end;

谢谢nicai_wgl！