Code:
if Doorgaan = True then
begin
if Pos('snapshot',Path) = 0 then
begin
NLDEnumFiles(path+Edit1.text, FileFound, [soRelativePaths,SoRecursive,soNoDirs, soProcessMessages]);
end;
end;
dat is hoe ik de aanroep maak, gebruik ik dan de verkeerde manier om te gaan zoeken?
Als er eenmaal een bestand gevonden is, ga ik naar
Code:
procedure TForm1.FileFound(const FileName: string; Attr: Integer; var DoContinue: TFSContinue);
begin
if Doorgaan = False then
begin
DoContinue := cCancel;
ShowMessage('proces is gestopt');
end;
Bestanden.Add(FileName);
if ProgressBar1.Position = 100 then ProgressBar1.Position := ProgressBar1.Min;
ProgressBar1.StepIt;
Application.ProcessMessages;
end;
daar stopt de boel dan wel.
De zoekactie die gedaan moet worden, is groot genoeg ( uur of tien mag je wel aan denken) dus als het fout gaat ( moet redelijk dummy-proof zijn) dan moet er wel een cancel gedaan kunnen worden.
Graag iets meer advies
Bij voorbaat mijn dank
Bookmarks