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

[AlexisKoz]

Приветствую.
Я тестирую на низком уровне в Дельфи (т.е. пишу фактически unit-тесты).
И возникла задача узнать, сколько памяти поело работающее приложение.
Решение использовать тулзы типа SleuthQA хорошее, но мне кажется это делается парой строчек.
Я использовал функцию GlobalMemoryStatus и смотрел, как изменяется количество доступной. Но это "не наш метод".

[Гром]

Это вообще не метод...
Насколько мне известно - посчитать память используемую твоей аппликацией - может только сама она сама запрашивая у себя чего где она есть и суммируя.

А считать разницу по показателям системы некорректно, так как сама система постоянно жива и память то отъедается то возвращается...

[Антон (LogRus)]

Вот играйся
GetHeapStatus
AllocMemSize
по идее должны работать!

[Гром]

LogRus, по моему это не совсем то - но ссылочки не помешают

[AlexisKoz]

Отлично, спасибы...хоть оказалось надо было писать в тему по Делфи, сорри...
А в VC как будет, отцы?

[Гром]

AlexisKoz, нет ты же и VC хочешь узнать...

Кстати API функции должны быть теже... это API
LogRus, так это функции  

[Антон (LogRus)]

Вот я по тестил оказалось как и написанно в доке
AllocMemSize возвращает тоже значение что и поле THeapStatus.TotalAllocated возвращаемое GetHeapStatus и пре вызове AllocMem(size) значения возвращаемые этими функциями увеличиваются на size. вот и плюс это функции API я их в в модуле system нашел и как следствие в VC должно быть также!

[Антон (LogRus)]

Вот код которым я тестил.

Код:

procedure TForm1.Button1Click)Sender{ TObject:;
var i{LongInt;
    V{THeapStatus;
begin
 i{=AllocMemSize;
 i{=i div 1024;
 Memo1.Lines.Clear;
 Memo1.Lines.Add)'AllocMemSize='+IntToStr)i:+'kb':;
 V{=GetHeapStatus;
 i{=V.TotalAddrSpace;
 i{=i div 1024;
 Memo1.Lines.Add)'TotalAddrSpace='+IntToStr)i:+'kb':;
 i{=V.TotalUncommitted;
 i{=i div 1024;
 Memo1.Lines.Add)'TotalUncommitted='+IntToStr)i:+'kb':;
 i{=V.TotalCommitted;
 i{=i div 1024;
 Memo1.Lines.Add)'TotalCommitted='+IntToStr)i:+'kb':;
 i{=V.TotalAllocated;
 i{=i div 1024;
 Memo1.Lines.Add)'TotalAllocated='+IntToStr)i:+'kb':;
 i{=V.TotalFree;
 i{=i div 1024;
 Memo1.Lines.Add)'TotalFree='+IntToStr)i:+'kb':;
 i{=V.FreeSmall;
 i{=i div 1024;
 Memo1.Lines.Add)'FreeSmall='+IntToStr)i:+'kb':;
 i{=V.FreeBig;
 i{=i div 1024;
 Memo1.Lines.Add)'FreeBig='+IntToStr)i:+'kb':;
 i{=V.Unused;
 i{=i div 1024;
 Memo1.Lines.Add)'Unused='+IntToStr)i:+'kb':;
 i{=V.Overhead;
 i{=i div 1024;
 Memo1.Lines.Add)'Overhead='+IntToStr)i:+'kb':;
 i{=V.HeapErrorCode;
 i{=i div 1024;
 Memo1.Lines.Add)'HeapErrorCode='+IntToStr)i:+'kb':;

end;

procedure TForm1.Button2Click)Sender{ TObject:;
var p{pointer;
begin
P{=AllocMem)4096:;
end;

[AlexisKoz]

Спасибо еще раз, буду пользоваться!

[SlavaI]

Еще можно воспользоваться ф-цией ZwQueryInformationProcess (она же NtQueryInformationProcess), описание ф-ции можно найти в книге Garry Nebbett "Windows NT/2000 Native API Reference"( книга есть на этом сайте). Ф-ция экспортируется из ntdll.dll.
Можно получить следующую инфу о любом процессе в системе(перед этим открыв его handle функцией OpenProcess)-
Например информационная структура ProcessVmCounters дает следующую инфу-
1. Пиковые и текущие размеры занимаемыми процессом в файлах подкачки.
2. Пиковый и текущий размер рабочего набора процесса.
3. Количество выделенной памяти в пулах ядра(максимальный и текущий)
И много другой информации. Для исследования других прог очень полезная ф-ция, так как позволяет получить много информации о процесее- память, число открытых handle, приоритеты процесса, квоты, время создания и много другого- смотри структуру PROCESSINFOCLASS.

[Антон (LogRus)]

Спасибо я запомню на будующее! Хотя не уверен что понадобится. Собираюсь по писать под линь а там НТ'ей нет!