Использование Оп.памяти программами

[zonclayv]

Помогите плз
Необходимо определить сколько оперативной памяти используют запущеные программы.

Есть код (он находит все запущеные программы), а как определить сколько оп.памяти они используют, подскажите плз

procedure TForm1.Button1Click(Sender: TObject);
var
wnd: hwnd;
buff: array [0..127] of char;
begin
ListBox1.clear;
wnd := getwindow(handle, gw_hwndfirst);
while wnd <> 0 do
begin // Не показываем:
if (wnd <> application.handle) // Собственное окно
and iswindowvisible(wnd) // Невидимые окна
and (getwindow(wnd, gw_owner) = 0) // Дочерние окна
and (getwindowtext(wnd, buff, sizeof(buff)) <> 0) then
begin
getwindowtext(wnd, buff, sizeof(buff));
ListBox1.items.add(strpas(buff));
end;
wnd := getwindow(wnd, gw_hwndnext);
end;
ListBox1.itemindex := 0;
end;

[rpy3uH]

самое простое это использовать функцию GlobalMemoryStatus. Поле dwMemoryLoad задаёт процент использования памяти. Количество используемой памяти можно определить вычев из общего количества оперативной памяти количество свободной (dwTotalPhys-dwAvailPhys), но нельзя забывать что суммарное количество используемой памяти может быть больше чем количество оперативной. Тогда количество памяти используемой программами будет вычисляться по формуле dwTotalVirtual-dwAvailVirtual

[zonclayv]

rpy3uH, биг тебе спосибо
Ещё один вопрос: Как определить сколько использует оп. памяти каждая запущенная программа?

[rpy3uH]

это уже сложнее
надо юзать функцию NtQuerySystemInformation c флагом SYSTEM_PROCESS_INFORMATION

[zonclayv]

а поподробней можно?

[Ivan_32]

GetProcessMemoryInfo
Это функцие имхо проще будет. Как это сделать через NtQuerySystemInformation - не понимаю. Там ведь дается только оффсет на следующий элемент, а базового адреса в структуре нет, короче бред какой то.. а может отталкиваться нужно от нуля?

[rpy3uH]

В данном случае конечно лучше юзать GetProcessMemoryInfo
NtQuerySystemInformation универсальная функция и все API функции для получения статистики в итоге обращаются к ней и её подобным. (GetProcessMemoryInfo обращается к ZwQueryInformationProcess)

[zonclayv]

Подскажите плз, хоть в кратце, как воспользоваться функцией GetProcessMemoryInfo в данном случае.

[rpy3uH]

пример использования функции из MSDN

#include <windows.h>
#include <stdio.h>
#include <psapi.h>

void PrintMemoryInfo( DWORD processID )
{
    HANDLE hProcess;
    PROCESS_MEMORY_COUNTERS pmc;

    // Print the process identifier.

    printf( "\nProcess ID: %u\n", processID );

    // Print information about the memory usage of the process.

    hProcess = OpenProcess(  PROCESS_QUERY_INFORMATION |
                                    PROCESS_VM_READ,
                                    FALSE, processID );
    if (NULL == hProcess)
        return;

    if ( GetProcessMemoryInfo( hProcess, &pmc, sizeof(pmc)) )
    {
        printf( "\tPageFaultCount: 0x%08X\n", pmc.PageFaultCount );
        printf( "\tPeakWorkingSetSize: 0x%08X\n", 
                  pmc.PeakWorkingSetSize );
        printf( "\tWorkingSetSize: 0x%08X\n", pmc.WorkingSetSize );
        printf( "\tQuotaPeakPagedPoolUsage: 0x%08X\n", 
                  pmc.QuotaPeakPagedPoolUsage );
        printf( "\tQuotaPagedPoolUsage: 0x%08X\n", 
                  pmc.QuotaPagedPoolUsage );
        printf( "\tQuotaPeakNonPagedPoolUsage: 0x%08X\n", 
                  pmc.QuotaPeakNonPagedPoolUsage );
        printf( "\tQuotaNonPagedPoolUsage: 0x%08X\n", 
                  pmc.QuotaNonPagedPoolUsage );
        printf( "\tPagefileUsage: 0x%08X\n", pmc.PagefileUsage ); 
        printf( "\tPeakPagefileUsage: 0x%08X\n", 
                  pmc.PeakPagefileUsage );
    }

    CloseHandle( hProcess );
}

int main( )
{
    // Get the list of process identifiers.

    DWORD aProcesses[1024], cbNeeded, cProcesses;
    unsigned int i;

    if ( !EnumProcesses( aProcesses, sizeof(aProcesses), &cbNeeded ) )
        return 1;

    // Calculate how many process identifiers were returned.

    cProcesses = cbNeeded / sizeof(DWORD);

    // Print the memory usage for each process

    for ( i = 0; i < cProcesses; i++ )
        PrintMemoryInfo( aProcesses[i] );

	return 0;
}

В Delphi надо

uses ...., psapi;

дальше аналогично вышеприведённому примеру

[Ivan_32]

rpy3uH, а можно аналогичный пример для NtQuerySystemInformation? Я попытался сделать вот такую структуру для этой функции:

struc SYSTEM_PROCESS_INFORMATION 
{
 	NextEntryOffset dd ?
    Reserved1 rb 52
    Reserved2 rd 3
    UniqueProcessId dd ?
    Reserved3 dd ?
    HandleCount dd ?
    Reserved rb 4
    Reserved5 rd 11
    PeakPagefileUsage dd ?
    PrivatePageCount dd ?
    Reserved6 rq 6   
}
;AF bytes

Но мне кажется что она неправильная. Ну и не совсем понятно как этой функцией пользоваться для поставленной задачи. Из всех параметров только оффсет на следующий процесс(?) и ID процесса. За точку отсчета тогда что нужно брать?
PS: Попробовал помочь и самому стало интересно