Dateien mit Platzhaltern öffnen

[stz]

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