Forum: Object-Pascal / Delphi-Language
Delphi
by HeikoAdams,
26. Mai 2009
Ich hab die Lösung gefunden. Die Funktion AdvBuildFileList ist buggy, da sie keine versteckten Verzeichnisse findet.
Hier meine gepatchte Version:
function AdvBuildFileList(const Path: string; const Attr: Integer; const Files: TStrings;
const AttributeMatch: TJclAttributeMatch; const Options: TFileListOptions;
const SubfoldersMask: string; const FileMatchFunc: TFileMatchFunc): Boolean;...
Forum: Object-Pascal / Delphi-Language
Delphi
by HeikoAdams,
26. Mai 2009
Hallo,
ich versuche, den Inhalt des Ordners C:\Dokumente und Einstellungen\ich\Anwendungsdaten\Microsoft\Crypto mit Delphi zu sichern.
Um den Inhalt des Verzeichnisses zu bekommen, verwende ich
if AdvBuildFileList(IncludeTrailingPathDelimiter(aDir) + '*.*',
$00017FFF, aFileList, amSuperSetOf,
) then
begin
for nCount := aFileList.Count - 1 downto 0 do
if...