Problem mit Auslastung durch je. Prozesse - GetProcessMemory

[x000x]

Moin moin,

Zitat von MSDN:

Return Values
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

benutz doch mal im else Zweig vom GetProcessMemoryInfo folgendes:

Delphi-Quellcode:

//...
var
  ErrorMessage : array[0 .. 256] of Char;
  //...
begin
  //...
    IF GetProcessMemoryInfo(Temp, Test, SizeOf(Test)) THEN
      Item.SubItems.Add(IntToStr(Test.PeakWorkingSetSize))
    else begin
      FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError, 0,
                    @ErrorMessage, Sizeof(ErrorMessage) - 1, nil);
      ShowMessage(ErrorMessage);
    end;
  //...

Evtl. kommste damit ein Sück weiter?!