[Vladimr]

Можно узнать PID окна по его HWND использую функцию

Код:

GetWindowThreadProcessId(HWND,PID);

Но даже передавая pid процесса в

Код:

var
  pmc: PPROCESS_MEMORY_COUNTERS;
  cb: Integer;
 PID:DWORD; //pid процесса (как в диспетчере задач), найденный через HWND
begin
  Memo1.Lines.Clear;
  cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
  GetMem(pmc, cb);
  pmc^.cb := cb;
  if GetProcessMemoryInfo(pid, pmc, cb) then
  begin
    Memo1.Lines.Add( FloatToStr(pmc^.WorkingSetSize/1024) + ' KB');
    Memo1.Lines.Add( FloatToStr(pmc^.PagefileUsage/1024) + ' KB');
  end;
  FreeMem(pmc);
end;

ничего не выводиться.