Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Квота на запускаемы процесс 
:(
    Опции темы
GePo
Дата 27.11.2004, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 166
Регистрация: 30.3.2003
Где: Москва

Репутация: нет
Всего: 3
Как установить ограничение на используемую память дочерним процессом? Сам процесс запускаю CreateProcess-ом. Знаю, что использовать надо SetProcessWorkingSetSize, но не могу разобрать с установкой прав на процесс
--------------------
PM MAIL WWW   Вверх
RA
Дата 28.11.2004, 05:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 7
Всего: 115
http://www.realcoding.net/part.php?id=1955
PM   Вверх
p0s0l
Дата 29.11.2004, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112
Цитата(GePo @ 27.11.2004, 15:26)
но не могу разобрать с установкой прав на процесс

Цитата(MSDN)
Windows NT/2000/XP:  The handle must have the PROCESS_SET_QUOTA access right.




--------------------
С уважением, г-н Посол.
PM   Вверх
GePo
Дата 1.12.2004, 00:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 166
Регистрация: 30.3.2003
Где: Москва

Репутация: нет
Всего: 3
p0s0l
Это конечно круто, то что он должен имет такие права, а вот как установить эти права я не догоняю
--------------------
PM MAIL WWW   Вверх
p0s0l
Дата 1.12.2004, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112
Цитата(GePo @ 1.12.2004, 00:11)
p0s0l
Это конечно круто, то что он должен имет такие права, а вот как установить эти права я не догоняю

Открывай процесс с таким доступом:
hProcess := OpenProcess ( PROCESS_SET_QUOTA, False, ProcessId );
а дальше уже делай
SetProcessWorkingSetSize( hProcess, MinSize, MaxSize );


--------------------
С уважением, г-н Посол.
PM   Вверх
p0s0l
Дата 1.12.2004, 16:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112
Так... Раз процесс создан CreateProcess, то в структуре TProcessInformation хранится hProcess с правами полного доступа...
Тогда будет сразу так:
SetProcessWorkingSetSize( pi.hProcess, MinSize, MaxSize );

Насчёт привилегий:
Цитата(MSDN)
If the values of either dwMinimumWorkingSetSize or dwMaximumWorkingSetSize are greater than the process' current working set sizes, the specified process must have the SE_INC_BASE_PRIORITY_NAME privilege. Users in the Administrators and Power Users groups generally have this privilege. For more information about security privileges, see Privileges.

Можешь юзать такую функцию:
Код
function SetPrivilege(aPrivilegeName : string; aEnabled : boolean ): boolean;
var
 TP         : TTokenPrivileges;
 Token      : THandle;
 dwRetLen   : DWord;
begin
 Result := False;
 OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token );
 TP.PrivilegeCount := 1;
 if( LookupPrivilegeValue(nil, PChar( aPrivilegeName ), TP.Privileges[ 0 ].LUID ) ) then
 begin
   TP.Privileges[0].Attributes:= (SE_PRIVILEGE_ENABLED)*byte(aEnabled);
   Result := AdjustTokenPrivileges(Token, False, TP, 0, nil, dwRetLen );
 end;
 CloseHandle( Token );
end;
Если хочешь увеличить размер WorkingSet, то перед SetProcessWorkingSetSize вызывай эту функцию так:
Код

 SetPrivilege ('SeIncreaseBasePriorityPrivilege', True);





--------------------
С уважением, г-н Посол.
PM   Вверх
GePo
Дата 1.12.2004, 22:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 166
Регистрация: 30.3.2003
Где: Москва

Репутация: нет
Всего: 3
p0s0l
Цитата
Раз процесс создан CreateProcess, то в структуре TProcessInformation хранится hProcess с правами полного доступа...

Я тоже так думал, но после SetProcessWorkingSetSize, GetLastError равно 5, т.е. Access is denied
--------------------
PM MAIL WWW   Вверх
p0s0l
Дата 2.12.2004, 01:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112
Цитата(GePo @ 1.12.2004, 22:40)
Я тоже так думал, но после SetProcessWorkingSetSize, GetLastError равно 5, т.е. Access is denied

Ну сделай тогда так, как я уже говорил:
Код
hProcess := OpenProcess ( PROCESS_SET_QUOTA, False, ProcessId );
SetProcessWorkingSetSize( hProcess, MinSize, MaxSize );
Так-то 100% должно работать...



--------------------
С уважением, г-н Посол.
PM   Вверх
GePo
Дата 3.12.2004, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 166
Регистрация: 30.3.2003
Где: Москва

Репутация: нет
Всего: 3
p0s0l
Странно, но все равно не работает
--------------------
PM MAIL WWW   Вверх
p0s0l
Дата 11.12.2004, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112
Ну тогда я не знаю smile

Приведи полный код запуска процесса и установки квоты. Может где какую оплошность незаметную допустил ?



--------------------
С уважением, г-н Посол.
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0538 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.