Consumo de memoria de procesos en segundo plano

Hola, después de buscar algunos consejos para leer el consumo de memoria de una aplicación

http://delphiaccess....ia-en-servicio/

https://www.devfield...oria-en-delphi/

https://stackoverflo...-delphi-program

He hecho algunas pruebas pero veo que en los procesos que se están ejecutando en segundo plano no se puede obtener dicha información (adjunto imagen del LOG)

Mira a ver si esto te sirve:
 

procedure TForm1.GetProcessMemory(PID: DWORD);
var
  mc: PROCESS_MEMORY_COUNTERS_EX;
  hProcess: THandle;
begin
  mc.cb:= sizeof(mc);
  hProcess:= OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID);
  GetProcessMemoryInfo(hProcess, @mc, sizeof(mc));
  Label1.Caption:= IntToStr(mc.PrivateUsage);
  Label2.Caption:= IntToStr(mc.WorkingSetSize);
end;

Subo proyecto.

Ejecútalo como administrador.


Saludos.

Muchas gracias amigo escafandra, ya lo veo y comento

Saludos

Ya lo he ejecutado y funciona de maravilla, mis respetos amigo escafandra, 

Solo le he hecho una modificación (imagen adjunta) que no se hasta que punto sea correcta. 

Saludos