Also:
Ich habe eine ChecklistBox, wo alle Festplatten/Partitionen aufgelistet werden.
Dann habe ich einen Record:
Delphi-Quellcode:
type
TSelectedDrives = record
Drive: string;
Selected: Boolean;
end;
Und davon dann natürlich einen Array, der so lang ist, wie es Festplatten/Partitionen gibt.
Mit einer Schleife überprüfe ich dann, welche Laufwerke ausgewählt sind (checked) und setzte dann im Array "Selected" auf true.
Das funktioniert alles 100% richtig.
Dann habe ich noch die Klasse TSearchThread mit folgender Execute-Prozedure und folgendem Create-Constructor:
Delphi-Quellcode:
constructor TSearchThread.Create(path:string);
begin
fpath:=path;
inherited Create(true);
end;
procedure TSearchThread.Execute;
var
i:integer;
liste: TStringList;
begin
liste := TStringList.Create;
GetFilesInDirectory(fpath,'*.exe',liste,true,true); // Funktion hier aus der CodeLibary
frmSearchdlg.Memo1.Lines.AddStrings(liste);
liste.Free;
end;
Ja ich müsste eigentlich mit Synchronize arbeiten, aber das tut jetzt ja nichts zur Sache...
Dann habe ich noch einen Thread der dann alle SearchTreads nacheinander ausführen soll (s. obere Posts).
Und natürlich noch der Code für den SearchThread-Array:
Delphi-Quellcode:
SetLength(SearchThread,0);
for i := 0 to Length(SelectedDrives) - 1 do begin
if SelectedDrives[i].Selected then begin
SetLength(SearchThread,Length(SearchThread)+1);
SearchThread[Length(SearchThread)-1] := TSearchThread.Create(SelectedDrives[i].Drive);
SearchThread[Length(SearchThread)-1].OnTerminate := ThreadTerminateProc;
end;
end;
Threads := TThreads.Create(false); // Dieser Thread macht dann SearchThread[i].Resume
Threads.FreeOnTerminate := true;
Der SearchThread-Array ist auch korrekt. Wie gesagt, wird aber immer nur der letzte von allen SearchThreads ausgeführt.