Delphi. Работа с процессами - узнать количество занимаемой процессом памяти в ОЗУ и определить загрузку процессора

[alex111089]

Здравствуйте, уважаемые.

Вот незадача у меня случилась - для моей программы необходима подробная информация о процессе:

• имя процесса;
• путь к процессу;
• занимаемая процессом память в ОЗУ;
• загрузка процессора.

Первые 2 параметра я нашел, а вот с последними 2-мя проблема. Перечитал довольно много статей. Верной информации получить не удалось.
Может быть кто-нибудь сталкивался с подобной проблемой?

type clProcessInfo=record
  prName, prPath: string;
  prID, prMemory: Integer;
end;

var arrProcesses: array of clProcessInfo;

implementation

procedure getProcInfo;
Var Proc : Thandle;
    ProcTag : TagProcessentry32;

    ModName: array [0..MAX_PATH] of Char;
    ProcHndl: THandle;
begin
SetLength(arrProcesses, 0);
Proc:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
ProcTag.dwSize:=SizeOf(TProcessEntry32);
If Process32first(Proc, ProcTag) then
  Repeat
    SetLength(arrProcesses, length(arrProcesses)+1);
    arrProcesses[length(arrProcesses)-1].prName:=ProcTag.szExeFile;
    arrProcesses[length(arrProcesses)-1].prID:=ProcTag.th32ProcessID;
    arrProcesses[length(arrProcesses)-1].prMemory:=ProcTag.dwSize;  //Выдает неправильное количество занимаемой памяти
    ProcHndl:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,False,ProcTag.th32ProcessID);
    If GetModuleFileNameEx(ProcHndl,ProcTag.th32ModuleID,ModName,SizeOf(ModName))> 0 then
      arrProcesses[length(arrProcesses)-1].prPath:=ModName
    else
      arrProcesses[length(arrProcesses)-1].prPath:='Unknown';

//------------------ КАК ЭТО ПОЛУЧИТЬ? ----------------------
//    arrProcesses[length(arrProcesses)-1].prMemory:=0;
//-----------------------------------------------------------

  Until not Process32Next(Proc, ProcTag);
end;

[waleri]

Можно например воспользоваться функцией GetProcessTimes() для каждого процесса и потом пересчитать все в проценты.

Просмотрите и остальные GetProcess*() функции...

[alex111089]

Спасибо, что откликнулись.

tmp, tmp2: cardinal

ProcHndl:=OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,False,ProcTag.th32ProcessID);

GetProcessWorkingSetSize(ProcHndl,tmp,tmp2);
GetProcessMemoryInfo(ProcHndl,@ppc,sizeof(PROCESS_MEMORY_COUNTERS));

Функции GetProcessWorkingSetSize и GetProcessMemoryInfo выдают также неправильные значения.

Мне необходимо получить размер занимаемой памяти в ОЗУ определенным процессом - также, как это делает стандартный диспетчер задач.