Hi,
Ich wollte ein kleines Backup Programm für mich schreiben. Es soll einfach nur den kompletten Inhalt des Ordners "Dokumente und Einstellungen\User" auf ein anderes lokales Laufwerk d: schreiben. Es sollen allerdings nur neue Dateien kopiert werden.
Dazu hab ich schonmal folgenden Code rausgesucht:
Delphi-Quellcode:
function CopyFileEx(const ASource, ADest: String;
ARenameCheck: boolean = false): boolean;
var
sh: TSHFileOpStruct;
begin
sh.Wnd := Application.Handle;
sh.wFunc := FO_COPY;
sh.pFrom := PChar(ASource + #0);
sh.pTo := PChar(ADest + #0);
sh.fFlags := fof_Silent or fof_MultiDestFiles;
if ARenameCheck then
sh.fFlags := sh.fFlags or fof_RenameOnCollision;
Result:=ShFileOperation(sh)=0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
CopyFileEx('C:\dokumente und einstellungen\User\eigene dateien','d:\Backup\User');
end;
Hier hab ich den Code gefunden
Okay, das Kopieren funktioniert jetzt, allerdings will ich das ganze ohne weitere Benutzereingabe automatisieren. Wenn eine Datei bereits vorhanden ist, wird nämlich abgefragt, ob sie überschrieben werden soll. Zusätzlich will ich, dass eine im Programm eingebaute Progressbar den Fortschritt anzeigt. Bereits vorhandene Dateien sollen überschrieben werden.
Wie stell ich das an?
Danke schonmal