Auflisten welche Dateien sich in einem Ordner befinden

[nuellz]

Hallo,

sorry wenns das schon gab, ich hab dazu jedenfalls nichts gefunden.

In meinem Programm sollen in eine ComboBox die Dateinamen sämtlicher Bitmap-Dateien geladen werden, die sich in einem bestimmten Ordner befinden. Wie kann ich das realisieren?

Ich find immer nur die Lösung, um nach bestimmten Dateinamen in einem Ordner zu suchen, nicht alle Dateien zu prüfen.

Danke schonmal
Gruß nuellz

[Kroko1999]

(a) Google benutzen
(b) die Suche hier benutzen
(c) schau mal dort

[Klaus01]

Wenn Du die Suche bemühen möchtest, kannst
Du mal nach findFirst,findNext und findClose suchen.

Grüße
Klaus

[Brainshock]

Ich finde das ganz schnieke:

Delphi-Quellcode:

procedure TForm1.Button11Click(Sender: TObject);
var
  D: PChar;
begin
   D := 'C:\*.bmp';
   ComboBox1.Perform(CB_DIR,
                    DDL_ARCHIVE +
                    DDL_EXCLUSIVE +
                    DDL_HIDDEN +
                    DDL_READONLY +
                    DDL_READWRITE +
                    DDL_SYSTEM,
                    Integer(D));
end;

Gruß

[DeddyH]

Funktioniert bei mir nicht, ich muss SendMessage nehmen, damit es geht.

[edit] Also so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Mask: string;
begin
  Mask := 'G:\Fotos\*.jpg';
  SendMessage(cbb1.Handle,
              CB_DIR,
              DDL_ARCHIVE or
              DDL_EXCLUSIVE or
              DDL_HIDDEN or
              DDL_READONLY or
              DDL_READWRITE or
              DDL_SYSTEM,
              Integer(PChar(Mask)));
  if cbb1.Items.Count > 0 then
    cbb1.ItemIndex := 0;
end;

[/edit]