ПРОЦЕСС И ПОТОК

Процесс - экземпляр выполняемого приложения. При запуске приложения происходит выделение памяти

Каждый поток может создать другой поток и т.д.
Каждый процесс имеет

В 32-х разрядных версиях Windows используется вытесняющая многозадачность
ОС разделяет процессорное

Класс – TThread
tnew = class(tthread) private { private declarations } protected procedure execute; override; end; … procedure

Запустить поток

var new: tnew; … begin new := tnew.create(true); end;  
Значение true в методе create значит,

Пример

Теперь создадим модуль для потока. Для этого выберем пункт меню File->New->Other

Назовем свой поток tnew

Код созданного для потока модуля:
unit MyThread;
interface
uses
Classes;
type
T tnew =

У объекта есть только одна процедура Execute. В любых потоках эта

procedure TCountObj.Execute;
begin
index:=1;
//Запускаем бесконечный счётчик
while index>0 do
begin
Synchronize(UpdateLabel);
Inc(index);
if index>100000 then
index:=0;
//Если поток остановлен, то

Переменную index объявим как integer в разделе private объекта потока. Там

подключаем главную форму в раздел uses. В методе Execute запускается цикл

о функции Synchronize.

Если процедура вызвана в методе Synchronize, то выполнение

Главная программа

В раздел uses главной формы (самый первый, который идёт после

В разделе private объявляем переменную co типа Ttnew (объект нашего потока).

возможности потоков

Suspend - приостанавливает поток. Для вызова нужно написать co.Suspend.

Suspended - если этот параметр true, то поток находится в паузе.
Terminated

сообщение SendMessage

Каждый раз, когда надо обновить содержимое текста мы можем

сообщение SendMessage

SendMessage(Form1.Edit1.Handle, WM_SETTEXT, 0, Integer(PChar(IntToStr(index))));
в разделе uses нужно добавить два модуля:

const PROGRESS_POS = WM_USER+1; В объявление класса формы добавим новый метод, а затем

TNewThread = class(TThread) private { Private declarations } protected procedure Execute; override; end; var Form1: TForm1; implementation {$R *.dfm} { TNewThread

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

var Form1: TForm1; CriticalSection: TCriticalSection; ... procedure TForm1.FormCreate(Sender: TObject); begin CriticalSection:=TCriticalSection.Create; end;