[lxa85]

LilLoco, тебе как срочно?
У нас лаба была по мультипотокам, но она в архиве. До него надо бы добраться, но когда у меня будет "окно" я не знаю. Попробую в ближайшее время (условно неделя).

[LilLoco]

lxa85, Подожду конечно, заранее спасибо

[ganselo]

А если создать 3 поток в котором будет находится WaitFor и после его завершения в этом же потоке вызовется нужный?

[BlackEric]

LilLoco,
1. из потока при завершении запускайте следующий
2. Из основного потока по таймеру проверяем не завершился ли поток и стартуем стлудеющий

[LilLoco]

Всем Спасибо За Советы, буду завтра пробовать

[zonderz]

LilLoco,

неужель не догадались сами? логика:
самый простой пример

var b: boolean;

procedure Form.OnCreate;
begin
Timer.Interval:= 100;
Timer1.enabled:= true;
b:= false;
end;

procedure ButtonClick;
begin
Thread1.Create;
end;


procedure Timer.OnTimer;
begin
if b = True then
begin
Thread2.Create;
Timer1.enabled:= false;
end;
end;


procedure Thread1;
begin
...
...
...
...
b:= true;
end;

procedure Thread2;
begin
...
...
b:= false
end;



надеючь у вас Delphi World скачан..?

[LilLoco]

Спасибо за пример

надеючь у вас Delphi World скачан..? »

Скачан, но как то подзабыл посмотреть в нем