Критические секции

•var

Form1: TForm1; CriticalSection: TCriticalSection;

...

procedure TForm1.FormCreate(Sender: TObject); begin

CriticalSection:=TCriticalSection.Create;

end;

•У TCriticalSection есть два нужных нам метода, Enter и Leave, соответственно вход и выход из неё. Поместим наш код в критическую секцию: procedure TNewThread.Execute;

var

i: integer; begin

CriticalSection.Enter; for i:=0 to 100 do begin

sleep(50); SendMessage(Form1.Handle,PROGRESS_POS,0, i);

end;

CriticalSection.Leave;

end;