Определение используемой памяти

[Tarantul]

Можно ли как-то узнать, сколько оперативной памяти занимает работающая VB-программа, если не сумировать размеры всех переменных в ней

[xolod]

Менедер задач открой и посмотри. Суммированием всех переменных, как ты говоришь, ты результата не добъешься.

[|kerish|]

А из проги можно?
Если да, то есть интересные идеи...

[Tarantul]

Да, мне тоже интересно как это сделать програмно

[Igor_123]

В винде по моему до 4Гб

Столько выделяеться каждому процессу

[xolod]

2 Tarantul
Программно это делается с помощью API GetProcessMemoryInfo в сочитание с OpenProcess

[GM]

Чтобы узнать сколько процесс весит в памяти:

Код: Выделить всё

Declare Function GetProcessWorkingSetSize Lib "kernel32.dll" ( _
    ByVal hProcess As Long, _
    ByRef lpMinimumWorkingSetSize As Long, _
    ByRef lpMaximumWorkingSetSize As Long) As Long


[Tarantul]

Понятно

[Vovik]

Чтобы узнать сколько процесс весит в памяти:

Код: Выделить всё

Declare Function GetProcessWorkingSetSize Lib "kernel32.dll" ( _
    ByVal hProcess As Long, _
    ByRef lpMinimumWorkingSetSize As Long, _
    ByRef lpMaximumWorkingSetSize As Long) As Long


чет нули выдает.... че туда передавать то надо, а то в Api-guide вообще ф-ции нет....

[xolod]

Ууу..
Я не знаю, откуда у GM подобная информация, но функция GetProcessWorkingSetSize делает, мягко говоря, совсем другое.
Сказал же, используй GetProcessMemoryInfo

[GM]

Сорри, вспомнил о WorkingSetSize , так и скинул.xolod прав. Вообщем вот:

Код: Выделить всё

Type PROCESS_MEMORY_COUNTERS
    cb As Long
    PageFaultCount As Long
    PeakWorkingSetSize As Long
    WorkingSetSize As Long
    QuotaPeakPagedPoolUsage As Long
    QuotaPagedPoolUsage As Long
    QuotaPeakNonPagedPoolUsage As Long
    QuotaNonPagedPoolUsage As Long
    PagefileUsage As Long
    PeakPagefileUsage As Long
End Type
Private Declare Function GetProcessMemoryInfo Lib "PSAPI.DLL" (ByVal hprocess As Long, ppsmemCounters As PROCESS_MEMORY_COUNTERS, ByVal cb As Long) As Long
Function iGetProcessMem(pid As Long) As PROCESS_MEMORY_COUNTERS
Dim hprocess As Long
Dim lRet As Long
Dim pmc As PROCESS_MEMORY_COUNTERS
  hprocess = OpenProcess(PROCESS_QUERY_INFORMATION _
    Or PROCESS_VM_READ, 0&, pid)
pmc.cb = LenB(pmc)

  lRet = GetProcessMemoryInfo(hprocess, pmc, pmc.cb)
  CloseHandle (hprocess)
iGetProcessMem = pmc
End Function


Вырезка из gSysManager. Искать нужно WorkingSetSize