Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2009.11.01;
Скачать: [xml.tar.bz2];

Вниз

Установка приоритета процесса   Найти похожие ветки 

 
Vitaliy_____   (2008-09-23 06:39) [0]

Добрый день.
Что-то не смог разобраться с темой.
У нас есть 2 ф-и: установки приоритета процессу и текущему потоку.

SetPriorityClass;
SetThreadPriority;

Мне нужно чтобы приоритет менялся аналогично тому, как если бы мы его выставили в диспетчере задач (желательно, чтобы и там это отобразилось). Какую из этих ф-й (их сочетание) использовать?
Судя, скажем по http://www.cyberguru.ru/programming/win32/windows-processes-page3.html
не все так просто как кажется...


 
Юрий Зотов ©   (2008-09-23 11:10) [1]

Скачайте книгу Джеффри Рихтера "Windows для профессионалов", там все это подробно описано. Здесь рассказывать слишком долго, в книге этому целый раздел посвящен.


 
Vitaliy_____   (2008-09-23 12:14) [2]

Книгу скачал, с удовольствием углублю знания. Там еще и про реестр много интересного - спасибо за совет.
Правда я решил выставить приоритеты уже таким образом (по возрастанию) - в диспетчере отображается почти так как хотел, меня уже устраивает.

case Process_Priority_Selection.ItemIndex of
0:begin
   SetThreadPriority(T,THREAD_PRIORITY_NORMAL);
   SetPriorityClass(H,IDLE_PRIORITY_CLASS);
  end;
1:begin
   SetThreadPriority(T,THREAD_PRIORITY_LOWEST);
   SetPriorityClass(H,NORMAL_PRIORITY_CLASS);
  end;
2:begin
   SetThreadPriority(T,THREAD_PRIORITY_NORMAL);
   SetPriorityClass(H,NORMAL_PRIORITY_CLASS);
  end;
3:begin
   SetThreadPriority(T,THREAD_PRIORITY_ABOVE_NORMAL);
   SetPriorityClass(H,NORMAL_PRIORITY_CLASS);
  end;
4:begin
   SetThreadPriority(T,THREAD_PRIORITY_NORMAL);
   SetPriorityClass(H,HIGH_PRIORITY_CLASS);
  end;
end;// case


 
Vitaliy_____   (2008-09-23 12:16) [3]

Забыл, T-поток, H-процесс.

var H : THandle;
   T: Cardinal;
begin
H := GetCurrentProcess();
T :=  GetCurrentThread();
...



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2009.11.01;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
15-1251928966
Kerk
2009-09-03 02:02
2009.11.01
Кеширование в nginx кто-нибудь настраивал?


6-1209387329
pavel_guzhanov
2008-04-28 16:55
2009.11.01
Адрес приложения, написанного с использованием IntraWeb


2-1252953846
cyberspy85
2009-09-14 22:44
2009.11.01
не запускается скрипт


15-1251759694
Kerk
2009-09-01 03:01
2009.11.01
Как это работает?!


15-1251654107
Когда
2009-08-30 21:41
2009.11.01
Когда Вы в последний раз...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский