system.zip "Freeze" verhindern?

[hoika]

Hallo,

< doch ich glaube das tue ich leider schon. >

Synchronize benutzen.

[gee21]

So hat zwar etwas gedauert aber jetzt habe ich immerhin schon mal teilweise etwas geschafft.
Danke euch dafür sehr.


Mein Problem im Moment ist allerdings, dass ich es zwar schaffe den Thread komplett durchlaufen zulassen. (Dafür benutze ich waitfor; ) ich habe aber bemerkt das der Code im Mainthread nicht auf den Thread wartet und den nachfolgenden Code sofort ausführt (Also hier im Beispiel: Code2).

Gibt es eine einfache Möglichkeit den "code2" erst nach dem Thread Ende durchzuführen?


Im Moment versuche ich dass so:

MAINTHREAD:

Delphi-Quellcode:

TForm1.Button1Click(Sender: TObject);
begin
code1..
code1....
code1......

 TMyThread1.Create(False);

code2..
code2....
code2.....
end;

THREAD

Delphi-Quellcode:

type
TMyThread1 = class(TThread)
procedure Execute; override;
end;


procedure TMyThread1.Execute;
var i: Integer;
begin
if directoryexists(form3.Edit1.Text+'res_mods\'+wotversion) then TDirectory.Delete(form3.Edit1.Text+'res_mods\', true);

forcedirectories(form3.Edit1.Text+'res_mods\'+wotversion);

tdirectory.copy(ExtractFilePath(Application.Exename)+'deff\res_mods',form3.Edit1.Text+'res_mods');

if directoryexists(ExtractFilePath(Application.Exename)+'inf') then TDirectory.Delete(ExtractFilePath(Application.Exename)+'inf', true);
forcedirectories(ExtractFilePath(Application.Exename)+'inf');
synchronize(Thread1sync);
waitfor;
end;

[Luckie]

Das ist er Sinn und Zweck eines Threads, dass der Hauptthread weiter läuft, sonst würde es ja wieder "hängen".

[gee21]

Ja stimmt natürlich

Dann bleibt wohl nichts anderes als den "Code2" ebenfalls in den Thread mit rein zu packen damit er zum passenden Zeitpunkt ausgeführt wird?

[Der schöne Günther]

Ein TThread hat ein OnTerminate -Ereignis. Das kannst du, ganz wie ein OnClick , als Ereignis dafür verwenden wenn der Thread fertig ist.