Hoi,
Code:
var MyThread: TThread;
UseThreaded := True;
if (UseThreaded) then
begin
{ Threaded Mode }
MyThread := TThread.CreateAnonymousThread(
procedure
begin
TThread.Synchronize(TThread.Current, procedure
begin
StartProcess(Sender);
end);
end); //.Start;
MyThread.FreeOnTerminate := False;
MyThread.Start;
MyThread.WaitFor;
MyThread.Free;
end
else
begin
{ Normal Mode }
StartProcessMusicThread(Sender);
end;
Code:
procedure StartProcess(Sender: TObject);
begin
for Index := 0 to Pred(FoundFolders.Count) do
begin
FullPath := FoundFolders[Index];
ShowInformation; // Naar TLabel
Inc(ProcessMusic.TagProcessRec.FolderRead);
ProcessMusic.AddPrivatePath(Sender, FullPath);
if (__CANCEL) then Break;
end;
end;
Dit hier boven werkt goed maar ik zou die WaitFor willen veranderen zodat ik een __CANCEL kan gebruiken zodat de Thread stopt? Dat gaat dus niet.
Iemand een idee want ik kom niet verder? Op deze manier kan je ook niet je knop Annuleren indrukken.
Groetjes.
Bookmarks