Drag&Drop aus Explorer und Verzeichnisse

[Nils_13]

Hoi,

ich habe folgenden Code für das reinziehen von Dateien ins Programm aus dem Explorer heraus gefunden, aber möchte ihn nun so ausbauen, dass er auch Verzeichnisse kann. Wie wäre es möglich, eine Liste aller Dateien im Verzeichniss zu bekommen und wie bekommt man überhaupt mit, ob es ein Verzeichniss ist ?

Delphi-Quellcode:

procedure TfrmMain.WMDROPFILES(var Msg: TMessage);
var i, anzahl, size : Integer;
    Dateiname       : PChar;
begin
  inherited;
  anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
  for i := 0 to (anzahl - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
    Dateiname:= StrAlloc(size);
    DragQueryFile(Msg.WParam,i , Dateiname, size);
    AddSingleFile(StrPas(Dateiname));
    StrDispose(Dateiname);
  end;
  DragFinish(Msg.WParam);
end;