Moin !
Wenn ich hiermit versuche die Speicherlast meiner Anwendung auszugeben ...
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var State: TMemoryManagerState;
Size, i : Cardinal;
begin
GetMemoryManagerState(State);
Size := 0;
for i := 0 to High(State.SmallBlockTypeStates) do
Inc(Size, State.SmallBlockTypeStates[i].AllocatedBlockCount *
State.SmallBlockTypeStates[i].UseableBlockSize);
Inc(Size, State.TotalAllocatedMediumBlockSize +
State.TotalAllocatedLargeBlockSize);
Form1.Caption := 'Item Assign Test - ' +
IntToStr(Size) + ' Memusage';
end;
Dann kriege ich als Wert ~100780.
Nur was sagt mir dieser Wert? 100kb Speicher den meine Anwendung nutzt?!
Der Taskmanager sagt nämlich was von 3,8MB ...