Пишем после type это
Код: Выделить всё
type
.......
......
TNewThread = class(TThread)
public
procedure Execute;override;
end;
Затем в самой функции (например pluginprocess) пишем код:
Код: Выделить всё
procedure PluginProcess(dwID : DWORD; bInBuffer : PAnsiChar; dwInBufferSize : DWORD);
var
NewThread: TNewThread;
.....
begin
NewThread:=TNewThread.Create(true);
NewThread.FreeOnTerminate:=true; //поток автоматически завершается после выполнения
NewThread.Priority:=tpLower; //приоритет потока
NewThread.Resume; //запуск потока
end;
Теперь все свои тяжелые вычисления поместите в функцию:
Код: Выделить всё
procedure TNewThread.Execute;
begin
...
end;
Прочитать про синхронизацию потоков можете тут: http://www.delphikingdom.com/asp/viewit ... logid=1370