[ALexandr555]

Можно ли замедлить процесс? видел менеджеры тормозящие процесс, а вот средствами Delphi можно ли?

[ALexandr555]

ну в общем так

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
case i of
0:SuspendProcess(GetProcessID(Edit1.Text));
4:
 begin
  ResumeProcess(GetProcessID(Edit1.Text));
  i:=0;
  exit;
 end;
end;
inc(i);
end;

сделал

[poli-smen]

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

ну в общем так

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
case i of
0:SuspendProcess(GetProcessID(Edit1.Text));
4:
 begin
  ResumeProcess(GetProcessID(Edit1.Text));
  i:=0;
  exit;
 end;
end;
inc(i);
end;

сделал

Интересное решение. С тем же самым успехом можно было сделать и проще:

Код:

SlowdownProcess(GetProcessID(Edit1.Text));

[ALexandr555]

я в общем виде, процедуры остановки и продолжения при желании можно откопать)

[M.A.D.M.A.N.]

Что значит замедлить? Ну как вариант низкий приоритет процессу установить.

[M.A.D.M.A.N.]

Ща в интернете нашел какую-то прогу.