Windows Wildcards negieren

[sakura]

Zitat von uschi:

Danke für die schnelle Antwort, allerdings wollte ich genau das vermeiden

Da kommst Du aber nicht drumrum. Hier mal ein einfacher Ansatz (direkt getippt, nicht getestet):

Delphi-Quellcode:

uses
  Masks;

...

var
  SR: TSearchRec;
  Mask: TMask;
begin
  Mask := TMask.Create('*.jpg');
  try
    if FindFirst('C:\Temp\*.*', faAnyFile, SR) = 0 then
    try
      repeat
        if (SR.Attr and (faDirectory or faSymLink)) <> 0 then
          Continue;
        if not Mask.Matches(SR.Name) then
        begin
          // die Datei ist okay, mach was
        end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  finally
    Mask.Free;
  end;
end;

......