FindFirst

[DevilsCamp]

Hier ein kleines Beispiel:

Delphi-Quellcode:

procedure GetFiles(const VerzeichnisMitWildcards: String; var Liste: TStringList);
var
  search : TSearchRec;
  dateien: String;
  verz   : String;
begin
  Liste.Clear;
  verz  := ExtractFilePath(VerzeichnisMitWildcards);
  if verz[Length(verz)]<>'\' then
    verz:= verz+'\';
  dateien:= ExtractFileName(VerzeichnisMitWildcards);

  if FindFirst(VerzeichnisMitWildcards, faArchive, search)=0 then
  begin
    repeat
      Liste.Add(verz+search.Name);
    until FindNext(search)<>0;
  end;
  FindClose(search);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  list: TStringList;
begin
  list  := TStringList.Create;
  GetFiles('c:\irgendwo\*.ini', list);  
  ListBox1.Items.Assign(List);
  list.Free;
end;

So sollte es richtig sein.