Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Drag&Drop mit Ordnern (https://www.delphipraxis.net/111968-drag-drop-mit-ordnern.html)

64Jabor 12. Apr 2008 12:06


Drag&Drop mit Ordnern
 
Hallo DP!
Für meinen MediaPlayer habe ich hier aus dem DP einige Informationen gesammelt und nun eine Prozedur, die Dra&Drop von einzelnen Dateien abhandelt bzw. ggf. Fehler meldet.
Nun möchte ich mein Drag&Drop so erweitern, dass man auch ganze Ordner in meine ListBox ziehen kann und alle multimedialen hinzugefügt werden - bis in die letzte Verzeichnisstruktur des per Drag&Drop hinzugefügten Ordners.
Als Beispiel:
>Musik
>Musik>1.mp3
>Musik>1.wma
>Musik>Metal>2.mp3
>Musik>Metal>2.wma
>Musik>Rock>3.mp3
>Musik>Rock>3.wma
>Musik>Rock>2nd>4.mp3

Wenn man nun den Ordner Musik hinzufügen würde, sollen hier alle Lieder von 1.*** bis 4.*** hinzugefügt werden, nicht aber der Ordner!

Hat jemand eine Idee wie man kontrollieren kann ob ein Ordner per Drag&Drop hinzugefügt worden ist und man den dann immer weiter öffnet?

Schonmal vielen Dank...

mfg 64Jabor

MrKnogge 12. Apr 2008 12:35

Re: Drag&Drop mit Ordnern
 
Überprüfe einfach vor dem hinzufügen per FolderExists(Dateiname), ob es sich um einen Ordner handelt.

64Jabor 12. Apr 2008 13:20

Re: Drag&Drop mit Ordnern
 
:wall: :wall: :wall: :wall: :wall:
FolderExists... Na klar -.-

*gg

Thx!

64Jabor 12. Apr 2008 13:25

Re: Drag&Drop mit Ordnern
 
Gut, also ich überprüfe in der Drag&Drop-Prozedur auf >Ordner gedropped<, dann schreibe ich eine zweite Prozedur die alle Dateien in dem Ordner die eine Endung wie mp3 etc haben hinzufügt ODER aber sich selbst aufruft mit dem unterordner als paramter, gelle...

Wie erhalte ich denn die Anzahl aller Unterordner und Dateien in einem Ordner?


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:28 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz