Как уменьшить загруженность процессора?

[Paul Hindenburg]

например по типу сканера антивируса у него процент загрузки процессора не превышает 50 процентов, что нужно сделать чтобы было также. о разбитии на потоки и процессы - не думаю что это сильно поможет. для примера программа копирует все файлы из папки в другую папку, как снизить нагрузку на процессор?

[BOBAH13]

Ставить паузы во время выполнения действий. Элементарный вариант Sleep(тут ваше значение).

[Paul Hindenburg]

Сообщение от BOBAH13

Ставить паузы во время выполнения действий. Элементарный вариант Sleep(тут ваше значение).

мне такой способ не нравится, программа все равно уходит в даун режим(((

[Paul Hindenburg]

я вот модифицировал код (суть программы не важна, подходит, везде - где ведутся долгие расчеты) обработчик кнопки

procedure TForm2.Button1Click(Sender: TObject);
var
i,y:integer;
begin
y:=0;
for I := 0 to 100000 do
begin
  y := i+y;
Application.ProcessMessages;  
  sleep(12);
Form2.Caption := inttostr(y);
end;
end;

только здесь возникает проблема закрытия окна при выполнении цикла - окно не закрывается пока не будет завершен цикл

[BOBAH13]

Странно... какой вопрос такой и ответ. Вы разве говориле что программа должна реагировать на сообщения ?

Тогда надо создавать отдельный поток, в нем выполнять действия и вызывать Sleep, тогда главный поток (интерфейс) будеь в порядке.

p.s. вот вы говорите, мне это не подходит, а потом в коде пишите Sleep(12)

[Paul Hindenburg]

sleep я добавил позже, после подсказки.
а у потоков есть приоритеты?

[Д'якон]

можно изменить приоритет процесса (потока), тогда проц будет отводить ему время, если у него есть возможность.

[Д'якон]

приоритеты есть и у потоков и у процессов

[BOBAH13]

Сообщение от Д'якон

можно изменить приоритет процесса (потока), тогда проц будет отводить ему время, если у него есть возможность.

Мне кажется если поставить такой цикл

while True do;

То хоть какой там приоритет, нагрузка не уменьшится

[Д'якон]

ну это спорный вопрос, необходимо проверить на практике + на всяк случай можно использовать sleep(0) в данном цикле