for i := 0 to clDiscos.Items.Count - 1 do begin if clDiscos.Checked[i] = True then begin Letra := LeftStr(clDiscos.Items.Strings[i],1); ShowMessage(Letra); lstrcpy(@Path, PChar(Letra+':\')); // where to search Timer1.Tag := CreateThread(nil, 0{}, @Search, PChar('.mp3.'), 0, PDWORD(0)^); // extensions in lower case with extra point at the end! Timer1.Enabled := True; Application.ProcessMessages; end; end;
ahí cuento un listbox con varias Letras, si selecciono dos letras del listbox las cuenta pero ejecuta el hilo dentro del ciclo con la última letra del conteo, quisiera que al contar hagalo siguiente, letra A, ejecuta el hilo, termina, luego sigue con la Letra B y así sucesivamente, o sea, por partes, primero uno luego la otra, no sé si me hice entender, por favor, sino es así haganmelo saber please :$.
Saludos.