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?!