07.01.2007, 00:10
общий
это ответ
Здравствуйте, Troyan!
С рождеством.
Возможно тебе следует использовать ветви.
Например так:
type
TWorkThread = class(TThread)
private
protected
procedure Execute;
end;
var
WorkThread:TWorkThread;
implementation
procedure TWorkThread.Execute;
begin
{Your job here}
end;
procedure startjob(...);
begin
WorkThread:=TWorkThread.Create(False);
end;
procedure pausejob;
begin
WorkThread.Suspend;
end;
procedure stopjob;
begin
WorkThread.Terminate;
end;
procedure resumejob;
begin
WorkThread.Resume;
end;