Максимум памяти,который использовал процесс при работе

[calypso]

1.Запускаем процесс
2. Ждем пока он завершит работу
3. Выдаем MemMax, максимальное количество памяти,которое он использовал в работе. Именно объем физического ОЗУ,а не виртуальных страниц

[Человек_Борща]

Разрешаю, можешь начинать это делать.

[calypso]

Не понял стеба вашего. По-моему,неплохой вопрос. Как запускать процесс,я знаю.
Теперь,далее:
http://msdn.microsoft.com/ru-ru/libr...vs.110%29.aspx
Во-первых,на ХР она работать не будет я так понял. Во-вторых, выдаст реальный объем RAM или количество виртуальных страниц как GetMemoryInfo?

[Пепел Феникса]

Сообщение от calypso

Не понял стеба вашего. По-моему,неплохой вопрос. Как запускать процесс,я знаю.
Теперь,далее:
http://msdn.microsoft.com/ru-ru/libr...vs.110%29.aspx
Во-первых,на ХР она работать не будет я так понял. Во-вторых, выдаст реальный объем RAM или количество виртуальных страниц как GetMemoryInfo?

объем памяти в принципе измеряется страницами.
и виртуальность страниц(о которой вы похоже и не столь много знаете) тут не причем.

[calypso]

Меня сбила с толку вот эта тема:
http://www.cyberforum.ru/delphi/thread766547.html
Особенно картинка там,где видно что GetProcessMemoryInfo возвращает количество памяти совсем не такое,как Диспетчер задач.

Про виртуальность страниц знаю из книги Рихтера, если память не изменяет - то Windows меряет ОЗУ общее и ей до лампочки,находится страница в физической памяти или в файле подкачки. Мне конечно хотелось бы знать,сколько МБ или ГБ процесс занимает именно в физической памяти, единственная мысль - отрубить pagefile.sys полностью и тогда избавимся от виртуальности.

[Пепел Феникса]

Особенно картинка там,где видно что GetProcessMemoryInfo возвращает количество памяти совсем не такое,как Диспетчер задач.

и там же в конце ТС говорит что смотрел не тот столбец.
диспетчер так же получает данные.

[calypso]

Вот как вам такой изощренный способ:
http://stackoverflow.com/questions/1...ge-post-mortem
Ну с инжектом библиотеки ещё понятно,чтобы не писать свою запускалку с CreateProcess. А зачем они замеряют память по файлу подкачки??

[calypso]

Сделал так:

procedure TForm2.Button1Click(Sender: TObject);
var
si:STARTUPINFO;
pi:PROCESS_INFORMATION;
counters:PROCESS_MEMORY_COUNTERS;
begin
ZeroMemory(@si,sizeof(si));
CreateProcess(PWideChar('C:\Program Files\Nero\Nero 11\Nero Burning ROM\nero.exe'),nil,nil,nil,FALSE,NORMAL_PRIORITY_CLASS,nil,PWideChar('C:\Program Files\Nero\Nero 11\Nero Burning ROM'),&si,&pi);
WaitForSingleObject(pi.hProcess,INFINITE);
GetProcessMemoryInfo(pi.hProcess,@counters,sizeof(PROCESS_MEMORY_COUNTERS));
ShowMessage('Процесс завершен! Максимальная загрузка памяти, КБ: '+IntToStr(counters.PeakWorkingSetSize div 1024));
end;