Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=416344&view=findpost&p=3815276 Wed, 20 Nov 2019 07:05:18 +0000 Приоритет процесса и приоритет потоков https://forum.sources.ru/index.php?showtopic=416344&view=findpost&p=3815276 Цитата manemale @
Другими словами, Код2 оставить, а Код1 можно убрать?

Судя по Process Explorer'у если у процесса поставить класс приоритета, то такой-же становится у его потоков

И вообще, возможно меня поправят коллеги, но твой код1 не рабочий от слова совсем:
1 Он не создает таймеры в каждом потоке, а просто создает отдельные пустые потоки(Form1.Timer1.Enabled:=true; не означает что таймер резко пересоздался в потоке1, его нужно создавать как и поток отдельно, в реалтайме)
2 Твой код While not Terminated do Form1.Timer1.Enabled:=true; зацикливает enable таймера, что приводит к отжиранию процессора на 70-80% у пустого приложения
Так что да, код1 нужно убрать]]> ^D^ima Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=416344&view=findpost&p=3815273 Wed, 20 Nov 2019 06:59:07 +0000 Приоритет процесса и приоритет потоков https://forum.sources.ru/index.php?showtopic=416344&view=findpost&p=3815273 Fr0sT Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=416344&view=findpost&p=3815264 Wed, 20 Nov 2019 04:23:50 +0000 Приоритет процесса и приоритет потоков https://forum.sources.ru/index.php?showtopic=416344&view=findpost&p=3815264
Код1:
    TPotok1=class (TThRead)
    protected
    procedure Execute();override;
    end;
     
    TPotok2=class (TThRead)
    protected
    procedure Execute();override;
    end;
     
    var
    Potok1: TPotok1;
    Potok2: TPotok2;
     
    procedure TPotok1.Execute();
    begin
      While not Terminated do Form1.Timer1.Enabled:=true;
    end;
     
    procedure TPotok2.Execute();
    begin
      While not Terminated do Form1.Timer2.Enabled:=true;
    end;
     
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      Potok1:=TPotok1.Create(false);
      Potok1.Priority:=tpHighest;
      Potok2:=TPotok2.Create(false);
      Potok2.Priority:=tpHighest;
    end;
     
    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      Potok1.Terminate;
      Potok2.Terminate;
    end;
     
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      //действие таймера 1
      Timer1.Enabled:=false;
    end;
     
    procedure TForm1.Timer2Timer(Sender: TObject);
    begin
      //действие таймера 2
      Timer2.Enabled:=false;
    end;


Как вариант, можно для приложения задать высокий приоритет процесса:

Код2:
    SetPriorityClass(GetCurrentProcess,HIGH_PRIORITY_CLASS);


Прочёл в литературе, что потоки получают приоритеты на базе классов приоритета своих процессов. Означает ли это, что если задать высокий приоритет процесса, то все таймеры будут работать с высоким приоритетом и в таком случае не надо заморачиваться с приоритетами потоков? Другими словами, Код2 оставить, а Код1 можно убрать?]]> manemale Delphi: Система, Windows API