Код
program test;
{$threading on}
uses sysutils ,crt;
var finished : longint;
function f1(p : pointer) : longint;
begin
while not keypressed do;
InterLockedIncrement(finished);
f1 := 0;
end;
begin
finished := 0;
BeginThread(@f1);
while finished < 1 do;
end.
{$threading on}
uses sysutils ,crt;
var finished : longint;
function f1(p : pointer) : longint;
begin
while not keypressed do;
InterLockedIncrement(finished);
f1 := 0;
end;
begin
finished := 0;
BeginThread(@f1);
while finished < 1 do;
end.
Самая простая программа использующая потоки. При запуске загруженность процессора 96-98%. Как сделать чтобы не было такой загрузки? Suspend ,Resume? А без них можно?