Добавление потока

Добавим кнопку на форму Stop Thread с Control_ID = 5

Для добавления потока нужно чуть изменить код.
Сразу после Program project1
добавляем строку {$mode DELPHI} эта строка нужна для того чтобы компилятор был совместим с делфи.

Uses имеет такой вид
uses
windows, sysutils, messages, Classes;
sysutils содержит дополнительные функции
Classes содержит классы

В Var добавляем Thread1: TThreadID;

После него пишем процедуру

procedure Start;
var
s: WideString;
begin
while true do //Бесконечный цикл
begin
s:=IntToStr(GetTickCount); //в строку заносим время работы виндовса
SendDlgItemMessage(handle,4,WM_SETTEXT,0,longint(PWideChar(s))); //посылаем строку label`у
end;
end;

В procedure2 пишем

if Thread1=0 then
Thread1:=BeginThread(@Start)
else
ResumeThread(Thread1);

Создадим еще одну процедуру, угадайте как её назовем :)

procedure procedure3;
begin
suspendthread(Thread1);
end;

а обработку кнопки сделайте сами.

Всю программу можно скачать отсюда.



http://dump.ru/files/o/o031322806/
MD5 хеш файла: cbdcac516e8ed101e27a4f6bfff939e6