Auflisten welche Dateien sich in einem Ordner befinden

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