Programm/Formular reagiert nicht während Datei kopieren

[Julian M.]

Hallo,

ich möchte ein Programm schreiben, welches Dateien/Verzeichnisse in einer Liste nacheinander kopiert.
Die Liste (geführt in Form einer Listbox) soll sich während kopiert wird, beliebig erweitern lassen. Da kommt mein Problem: So lange kopiert wird, kann man auf dem Formular nichts klicken. Das ist besonders bei großen Dateien inakzeptabel.

kennt Jemand eine Lösung ?
Mir würde jetzt höchstens einfallen, die listbox in eine .txt zu exportieren und ein zweites Programm im Hintergrund kopieren zu lassen -> Finde ich aber sehr unschön

Ich benutze derzeit zum Kopieren dieses Funktion:
http://www.delphipraxis.net/107218-v...-kopieren.html

Danke im Voraus !

[Daniel]

Mit dem Stichwort "Hintergrund" bist Du schon grob richtig.
Du müsstest die Kopiererei in einen Thread auslagern. Dann bliebe Dein Formular ansprechbar.

[Julian M.]

Danke, irgendwie fiel es mir jetzt auch ein
Habe mich nur mit Threads bisher noch nicht beschäftigt (bzw. wo es geht vermieden)

Ist ja wohl nicht ganz soo einfach das Thema. Aber ich werde mich mal ran setzen.

Falls es noch eine andere Lösung gibt, immer her damit

[Daniel]

Du hast ein - wie ich finde - vereinfachtes Szenario, da Du im einfachsten Fall eine Liste von oben nach unten abarbeitest. Fange mit einem Thread an und lass den jeweils eine Datei kopieren. Die Lösung hat gewiss Potential zur Optimierung, aber dafür solltest Du da so gut wie jedes Delphi TThread-Tutorial anwenden können. Wenn Du den Einstieg erstmal hast, kommt der Rest nach und nach schon.

[Julian M.]

Danke, und schon ist mein Problem mittlerweile gelöst !!! War ja wirklich nicht allzu schwer. :]
Wirklich toll wie schnell man hier eine freundliche und kompetente Antwort bekommt!

Das hier hat mir sehr geholfen bzw. ist die Lösung für einen einfachen Thread

Delphi-Quellcode:

interface
 
uses
  classes;
 
type
  TMyOwnThread = class(TThread)
  protected
    procedure Execute; override;
  end;
 
implementation
 
procedure TMyOwnThread.Execute;
begin
  // Führe hier irgendwelche Berechnungen aus.
end;

Thread ausführen/starten

Delphi-Quellcode:

 Thread := TMyOwnThread.Create(True);
 Thread.Resume;

[Mavarik]

Oder du nutz die Shellcopy Funktion und startest eine Task von Windows...