Drag & Drop für Ordner

[Brueckenhauer]

Hallo,

ich habe eine normale Drag & Drop funktion womit ich Dateien in mein Programm ziehen kann, nun möchte ich aber einen Ordner auf mein Programm ziehen und dann sollen alle Dateien in meine Listbox aus dem Ordner geschrieben werden, wie bekomme ich das hin das bei einem Ordner alle Dateien gelistet werden?

[chaosben]

Probiers mal so:

Delphi-Quellcode:

procedure TForm1.JvDragDrop1Drop(Sender: TObject; Pos: TPoint;
  Value: TStrings);
var
  i : Integer;
begin
  for i:=0 to Value.Count-1 do
   begin
    if (DirectoryExists(Value[i])) then
       BuildFileList(IncludeTrailingPathDelimiter(Value[i])+'*.*',faAnyFile,Listbox1.Items);
   end;
end;

Die Funktion BuildFileList kommt aus der Unit JclFileUtils (Jedi3)