Hallo,
ich habe ein kleines Programm (für meinen Vater) geschrieben, bei dem er mit einem einzigen Klick sein User-Verzeichnis kopieren kann als einer art Backup.
Das Programm läuft auf meinem Computer (Win7 x64) und meinem Laptop (Win7 x86) einwandfrei nur bei meinem Vater(Win7 x64) werden jeweils NUR die Dateien die im Userverzeichnis liegen kopiert nicht die Unterordner.
Weiß einer von euch Rat?
Noch eine Frage, wie kann ich nur sichtbare Elemente kopieren, will halt nicht z.B. AppData kopieren
So sieht meine Copy Funktion aus
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
| function TMainForm.CopyDir(const fromDir, toDir: string): Boolean; var fos: TSHFileOpStruct; begin ZeroMemory(@fos, SizeOf(fos)); with fos do begin wFunc := FO_COPY; fFlags := FOF_SIMPLEPROGRESS; pFrom := PChar(fromDir + #0); pTo := PChar(toDir) end; Result := (0 = ShFileOperation(fos)); end; |
und so rufe ich die dann auf
Delphi-Quelltext
1:
| CopyDir(GetEnvironmentVariable('USERPROFILE'), ExtractFilePath(ParamStr(0))+'Backup\') |