Vcl Annsprecbar bei TDirectory.copy

[ScharfeMietze]

Ich schreibe ein Tool das einen Ordner Überwacht und nach Inhaltsprüfung die Unterordner in verschiedene Verzeichnisse kopiert.
Das Kopieren funktioniert auch alles problemlos.
Die Ordner sind sehr groß dabei kann ein Kopiervorgang auch gern mal 20-30 min dauern.

Das Problem was ich habe ist, das die Dauerschleife während des kopierens nicht Ansprechbar ist. Normal stört das nicht, wenn man einmalig in Sekunden etwas kopiert.
Da das Programm in einer Schleife läuft, komme ich nicht dazu auf den "Stopp" Button zu drücken...
Die Dateien an sich darf ich NICHT verändern (also in rar wandeln z.B.) Ich muss auch am ende den Quell- und Zielorder auf Gleichheit überprüfen.
Hat jemand eine Idee wie ich den Stop drücken/ansprechbar machen kann und am Ende des aktuellen Ordners das Programm stoppt?

Gruß
SM

[Bernhard Geyer]

Einfache (schnellhack) Lösung wäre es zwischendurch ein Application.Processmessage einzufügen um die normale Windows-Messagequeue bedienen zu können.
Besser wäre es diese Aktion in einen Thread zu verlagern.

[Sir Rufo]

Oder man nimmt den BackgroundWorker als Bindeglied zwischen Thread und GUI.

Beispiele findet man hier
http://www.delphipraxis.net/185335-b...ab-xe2%5D.html

[ScharfeMietze]

Das habe ich drin, auch ein Sleep von 1ner Sekunde am Anfang der "repeat" Schleife. Keine Wirkung
wird Grau und keine Rückmeldung... auch nach vollendetem Schleifendurchlauf.

Eigentlich wollte ich vermeiden einen Thread zu nutzen, da "nichts" zu tun ist bis fertig kopiert wurde............
Wenn es einen Weg ohne Threads gibt ... hör ich den gern.

[Daniel]

Zitat von ScharfeMietze:

Eigentlich wollte ich vermeiden einen Thread zu nutzen, da "nichts" zu tun ist bis fertig kopiert wurde.....

Doch. Du willst die Anwendung "am Leben" halten und das ist aus Sicht des Systems sehr wohl "etwas zu tun".
Sorry, is' so ...

[hathor]

Man kann auch COPY von CMD.exe nutzen - arbeitet auch unsichtbar im Hintergrund - das Hauptprogramm bleibt bedienbar.
Kann auch zig Terabytes kopieren!

Stark gekürzter Auszug:

Delphi-Quellcode:

var
 FullOutputFileName, SummaryLine, CommandProcLine, FILETOCOPY: string;

SummaryLine:= '/Y /B "';
SummaryLine:=SummaryLine + FILETOCOPY +'"  ';
CommandProcLine:='copy '+ SummaryLine +' "'+ FullOutputFileName+'"';
ExecAndWait(PChar('cmd.exe /C '+ CommandProcLine));