Frage zu GetProcessMemoryInfo

[Mackhack]

Hi,

weis jemand warum da nur Schrott rauskommt?

Delphi-Quellcode:

function TfoMain.ShowMemoryUsage(ProcessId: DWORD): DWORD;
var
  hProcess: THandle;
  PMC: TProcessMemoryCounters;
begin
  Result := 0;
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcessId);
  try
    begin
      if ( hProcess = 0 ) then
        Exit;
      if ( GetProcessMemoryInfo(hProcess, @PMC, SizeOf(PMC)) ) then
        Result := PMC.cb;
    end;
  finally
    CloseHandle(hProcess);
  end;
end;

Oder muss ich noch irgendwie Speicher zuweisen oder sowas?

Danke!