Forum: Win32/Win64 API (native code)
by Luckie,
16. Jul 2012
So passt es fast:
procedure TDTListDir.FindFiles(RootFolder: AnsiString; Level: Integer = 0; Mask: AnsiString = '*.*'; Recurse: Boolean = True);
var
SR: TSearchRec;
i: Integer;
Tab: AnsiString;
slFolder: TStringList;
begin
slFolder := TStringList.Create;
slFolder.Delimiter := '\';
Forum: Win32/Win64 API (native code)
by Luckie,
16. Jul 2012
Also für die Dateien habe ich es schon mal hinbekommen:
procedure TDTListDir.FindFiles(RootFolder: AnsiString; Mask: AnsiString = '*.*'; Recurse: Boolean = True);
var
SR: TSearchRec;
i: Integer;
Tab: AnsiString;
begin
RootFolder := IncludeTrailingPathDelimiter(RootFolder);
if Recurse then
Forum: Win32/Win64 API (native code)
by Luckie,
16. Jul 2012
Ich durchsuche ein Verzeichnis mit FindFirst und schreibe das Ergebnis in eine StringListe:
procedure TDTListDir.FindFiles(RootFolder: AnsiString; Mask: AnsiString = '*.*'; Recurse: Boolean = True);
var
SR: TSearchRec;
begin
RootFolder := IncludeTrailingPathDelimiter(RootFolder);
if Recurse then
if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
try