19.05.2009, 19:13
|
|
Новичок
Регистрация: 26.10.2008
Сообщений: 15
Провел на форуме:
126398
Репутация:
6
|
|
Имеется вопрос по работе с потоками, функция BeginThread. Повторюсь, именно BeginThread, а не класс TThread.
Нужно организовать цикл, который будет создавать n потоков и будет выполнять функцию с теми или иными параметрами.
Через TThread это выглядит вот так :
Код:
...
var
a:array[1..250000] of TNewThread;
begin
...
for i:=1 to thr do begin
for j:=0 to source.Count -1 do begin
a[i]:=TNewThread.Create(true);
a[i].FreeOnTerminate:=true;
a[i].Priority:=tpLOWEst;
a[i].LoginTH:=copyLogin(Source.Strings[j]);
a[i].passTH:=copyPass(Source.Strings[j]);
a[i].Resume;
application.ProcessMessages;
if Application.Terminated then break;
if stop then break;
end;
...
end;
...
Требуется это переделать под BeginThread().
И вопрос по той же теме : как после этого по нажатии на кнопку завершить все потоки, используя endthread() ? |
|
|