VPF::Ограничение программы по памяти и времени

Dreik

Дата 27.6.2005, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Подскажите пожалуйста если кто знает, как запустить из моей программы другую и ограничить ее по памяти (например 2000К) и по времени выполнения (например 2 секунды). Если запущенная прога не укладывается в эти ограничения то выдавать ошибку и завершать ее. smile

rsm

Дата 27.6.2005, 20:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 1
Всего: 62

Думаю будет примерно так...

Код


program mein_project;

uses
  Windows;

var
   si: TStartupInfo;
   pi: TProcessInformation;

const
   nMaxMemSize = 2 * 1048576; // 2 Мб
   nTimeout = 2 * 1000; // 2 секунды
   MIN_MEM_SIZE = 16 * 1024; // минимальный размер выделяемой памяти

begin
   GetStartupInfo(si);
   if not CreateProcess(nil, 'calc.exe', nil, nil,
   false, PROCESS_SET_QUOTA or CREATE_NEW_CONSOLE, nil, nil, si, pi) then
      begin
         MessageBox(0, 'Не могу запустить программу!', nil, MB_ICONERROR);
         exit;
      end;
   if not SetProcessWorkingSetSize(pi.hProcess, MIN_MEM_SIZE, nMaxMemSize) then
      begin
         MessageBox(0, 'Не могу задать размер памяти процесса!', nil, MB_ICONERROR);
         TerminateProcess(pi.hProcess, 0);
         exit;
      end;
   WaitForSingleObject(pi.hProcess, nTimeout);
   TerminateProcess(pi.hProcess, 0);
end.

З.Ы. Вообще старайся поменьше руководить (а лучше - вовсе не руководить) объемом памяти процесса, Винда этого очень не любит.

Это сообщение отредактировал(а) rsm - 27.6.2005, 20:40

Snowy

Дата 28.6.2005, 09:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Для Win2k и старше читай справку по CreateJobObject.
(ограничение почти по любым параметрам)
В Win9x не работает.

Dreik

Дата 29.6.2005, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Вообще я пишу программу для проверки решений олимпиадных заданий. Т.е. моя задача сначала скомпилировать решение одним из допустимых компиляторов и затем прогнать готовую прогу на наборе из 20-30 тестов. Если на каком-либо тесте она будет работать дольше установленного времени или использовать больше установленной памяти, то она завершается и выдается сообщение об ошибке. Вот в общем то и все smile

Может у кого-нибудь будут рекомендации или советы.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »