Auflisten welche Dateien sich in einem Ordner befinden

[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ß