Aus Faulheit kopier ich dir jetzt einfach mal, wie ich das schon ein paar mal gemacht habe in der Hoffnugn, das dir das hilft:
Delphi-Quellcode:
function PathMatchSpec; external 'shlwapi.dll' name 'PathMatchSpecA';
procedure Search;
var
Path, Filter: String;
F: TSearchRec;
begin
Path := 'C:\Pfad\zu\deinen\Dateien\';
Filter := '*.ini;??-??-??.txt';
if FindFirst(Path + '*.*', faAnyFile, F) = 0 then
repeat
if (F.Attr and faDirectory) = 0 then
if PathMatchSpec(PChar(F.Name), PChar(Filter)) then
TuIrgendwasIntelligentes(Path + F.Name);
until FindNext(F) <> 0;
end;
Gruß
Malte
PS: Sehe gerade den roten Kasten: Für so einfache Filter gehts so natürlich auch, aber ich dachte, es sollen die echten Windows-Wildcards her...
//Edit: Mist, Deklarationen nicht ordentlich angepasst