Процессы и "задание", С++ Builder Опции

[18192123]

Требуется создать несколько процессов и сгруппировать их в «задание».
И в процессе выполнения у меня возникли некоторые вопросы...

STARTUPINFO si;
PROCESS_INFORMATION pi;
ZeroMemory(&si,sizeof(si));
si.cb=sizeof(si);
//Создадим два процесса
CreateProcess
("D:\\WINDOWS\\Lab2.exe",NULL,NULL,NULL,FALSE,0,NULL,NULL,&si,&pi);
CreateProcess
("D:\\Program Files\\Borland\\Delphi7\\Bin\\delphi32.exe",NULL,NULL,NULL,FALSE,0,NULL,NULL,&si,&pi);

SECURITY_ATTRIBUTES sa;
ZeroMemory(&sa,sizeof(sa));
char str[10];
strcpy(str,"Job'\0'");
//Создадим задание
CreateJobObject(&sa,str);
//получим дескриптор объекта-задание
HANDLE hJ = OpenJobObject(JOB_OBJECT_ASSIGN_PROCESS,FALSE,str);

//в предыдущей строке 2-й параметр bInheritHandles - флаг наследования дескриптора...
//каково его назначение?

//Добавим процесс в задание
//AssignProcessToJobObject(hJ,???);

И вопрос в том, как получить дескриптор процесса, добавляемого в задание?
И ещё мне не понятно, как устанавливать ограничения для всех процессов в "задании" на класс приоритета?
(Знаю только константы приоритетов..как использовать, не пойму)..

Сообщение отредактировано: 18192123 - 7.10.2008 0:06

[volvo]

Что показывает ProcessExplorer? Установились твои приоритеты для JobObject?

Вот, смотри:


(то, что выделено слева возвращается твоим методом). Устанавливался IDLE_PRIORITY_CLASS...

[18192123]

Вроде класс введённый (IDLE) установился...






А при получении информации вижу 32..

Сообщение отредактировано: 18192123 - 25.10.2008 0:32

[volvo]

Вроде класс введённый (IDLE) установился...

То, что jobli.PriorityClass установился в 64 еще ничего не значит... Я почему и спрашивал у тебя, установилось ли это после вызова SetInformationJobObject в ограничениях твоего задания? Проверь это...

[18192123]

установилось ли это после вызова SetInformationJobObject в ограничениях твоего задания? Проверь это...

да-да, установилось..

[volvo]

P.S. Возможно, SetInformationJobObject() или QueryInformationJobObject() возвращают признак ошибки (если возвращается 0, значит функция не отработала), тогда придется получить номер ошибки через GetLastError() и смотреть, в чем причина...

Сообщение отредактировано: volvo - 25.10.2008 1:20

[18192123]

P.S. Возможно, SetInformationJobObject() или QueryInformationJobObject() возвращают признак ошибки (если возвращается 0, значит функция не отработала), тогда придется получить номер ошибки через GetLastError() и смотреть, в чем причина...

Да..действительно - SetInformationJobObject() возвращает 0..
Для SetInformationJobObject() функция GetLastError() вернула код ошибки 87..

[volvo]

ERROR_INVALID_PARAMETER? Показывай вызов функции и заполнение всех ее параметров... Один из них заполнен неправильно...

[18192123]

ERROR_INVALID_PARAMETER? Показывай вызов функции и заполнение всех ее параметров... Один из них заполнен неправильно...

hjob = CreateJobObject(NULL, TEXT("LAB2"));
    // вводим ограничения для процессов в задании
    // сначала определяем некоторые базовые ограничения
    JOBOBJECT_BASIC_LIMIT_INFORMATION jobli = { 0 };

    // процесс всегда выполняется с классом приоритета ...
    GetWindowText(hEditPriority,(LPWSTR)lpProcName,50);
	if(!wcscmp(lpProcName, L"IDLE"))
	{
		jobli.PriorityClass = IDLE_PRIORITY_CLASS;
		MessageBox(hWndMain,TEXT("IDLE"),TEXT("Class of Priority:"),MB_ICONINFORMATION);
	}
	if(!wcscmp(lpProcName, L"NORMAL"))
	{
		jobli.PriorityClass = NORMAL_PRIORITY_CLASS;
		MessageBox(hWndMain,TEXT("NORMAL"),TEXT("Class of Priority:"),MB_ICONINFORMATION);
	}
	if(!wcscmp(lpProcName, L"BELOW_NORMAL"))
	{
		jobli.PriorityClass = BELOW_NORMAL_PRIORITY_CLASS;
		MessageBox(hWndMain,TEXT("BELOW_NORMAL"),TEXT("Class of Priority:"),MB_ICONINFORMATION);
	}
	if(!wcscmp(lpProcName, L"ABOVE_NORMAL"))
	{
		jobli.PriorityClass = ABOVE_NORMAL_PRIORITY_CLASS;
		MessageBox(hWndMain,TEXT("ABOVE_NORMAL"),TEXT("Class of Priority:"),MB_ICONINFORMATION);
	}
    // задание не может использовать более одной секунды процессорного времени
    //jobli.PerJobUserTimeLimit.QuadPart = 10000000;

    // 1 секунда, выраженная в 100-наносекундных интервалах
    // два ограничения, которые я налагаю на задание (процесс)
    jobli.LimitFlags = JOB_OBJECT_LIMIT_PRIORITY_CLASS | JOB_OBJECT_LIMIT_JOB_TIME;
DWORD fl=0;
    if (SetInformationJobObject(hjob, JobObjectBasicLimitInformation, &jobli, sizeof(jobli))==0)
    fl=GetLastError();
    

[volvo]

jobli.LimitFlags = JOB_OBJECT_LIMIT_PRIORITY_CLASS | JOB_OBJECT_LIMIT_JOB_TIME;

, но при этом поле PerJobUserTimeLimit.QuadPart остается незаполненным? Либо заполняй поле, либо меняй маску на

jobli.LimitFlags = JOB_OBJECT_LIMIT_PRIORITY_CLASS;

[18192123]

либо меняй маску на

jobli.LimitFlags = JOB_OBJECT_LIMIT_PRIORITY_CLASS;

Поменяла - теперь отрабатывает верно!
Спасибо!)