Wenn wir dem oben genannten Konzept bleiben:
Delphi-Quellcode:
type TCopy=class(TThread)
constructor Create(const aPassword, aQuelle, aZiel : String);
protected
procedure execute; override;
private
FPassword:string;
FQuelle:string;
FZiel:string;
end;
...
constructor TCopy.Create(const aPassword, aQuelle, aZiel : String);
begin
inherited Create(false); //false=> Thread gleich nach dem Constructor starten
FreeOnTerminate:=True; //Objekt löschen, wenn Thread beendet wurde
FPassword:=aPassword;
FQuelle:=aQuelle;
FZiel:=aZiel;
end;
procedure TCopy.execute;
begin
XORCrypt(FPassword, FQuelle, FZiel);
end;
//.... Aufruf von irgendwoher, Beispiel:
procedure TForm1.Button1click(...);
...
begin
TCopy.create('DasPassword', Edit1.text, Edit1.text);
//Objektzeiger brauchen wir nicht zu speichern, da er nicht mehr benötigt wird
//Objekt gibt sich ja selber frei
end;
Das ist die einfachste Version mittels TThread. du kannst die Klasse auch noch weiter ausbauen und dich z.B. benachrichtigen lassen, wenn der Thread fertig ist, oder noch andere Sachen machen.