|
Registriert seit: 16. Aug 2003
200 Beiträge
|
Re: Klasse für FindFirstFile/FindNextFile
1. Mai 2010, 18:26
Ich denke gerade auch über die Events nach, wie wäre es denn hiermit:
TFindFileEvent = procedure(Sender: TFindFiles; ParentFolder, Filename: string; FolderDeep: Byte; const Info: TWin32FindData; var Cancel: Boolean);
ParentFolder + Filename (bzw. + Folder) läßt sich im Event einfacher zusammensetzen als trennen und die Angabe der Tiefe vereinfacht ggf. die Anzeige.
Grüsse, Dirk
|