Цитата:
|
Сообщение от 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));