ram brugt på computeren

Hej
For at få at vide hvor meget fysisk hukommelse der er ledig ville man gøre dette:
Procedure getfysmem();
var lpBuffer: TMemoryStatus;
    freemem:integer;
begin
  GlobalMemoryStatus(lpbuffer);
  freemem:=lpbuffer.dwAvailPhys;
end;

På denne måde kan du også få informationer om swap filen, udnøttelses graden mm. Desværre ikke
hvor der bliver skrevet til hardisken.

Du kan læse mere i hjælpe filen til windows SDK(følger med delphi).

Anders Salomonsen

Jeg har noget C++ her til at læse Heapen med :

#include <alloc.h>
int DMHeapSize(Vulong &InUse, Vulong &InUseB, Vulong &FreeM, Vulong &FreeMB)
{
  PROCESS_HEAP_ENTRY hi;
  int i;
  HANDLE hArray[10];
  int HandleCount;
  memset(hArray, 0, sizeof(hArray));

  FreeM = 0;
  InUse = 0;
  FreeMB = 0;
  InUseB = 0;
  HandleCount = GetProcessHeaps(10, hArray);

  for(i=0; i<HandleCount; i++)
  {
      hi.lpData = NULL;
      while( HeapWalk( hArray[i], &hi ) )
      {
        if(hi.wFlags & PROCESS_HEAP_REGION)
        {
            InUse += hi.cbData;
            InUseB++;
        }
        else
        {
            FreeM += hi.cbData;
            FreeMB++;
        }
      }
  }
  return 0;
}


      Vulong InUse, InUseB, FreeM, FreeMB;
      DMHeapSize(InUse, InUseB, FreeM, FreeMB);


Jens B

Går det helt i fisk, kan du finde kode eksempler osv på det hele på http://www.torry.ru

var
  Status : TMemoryStatus;
begin
  Status.dwLength := sizeof( TMemoryStatus );
  GlobalMemoryStatus( Status );
  ...

The TMemoryStatus contains several fields indicating the status of the memory:

Status.dwMemoryLoad: Total memory used in percentage (%).
Status.dwTotalPhys: Total physical memory in bytes.
Status.dwAvailPhys: Physical memory left in bytes.
Status.dwTotalPageFile: Total page file in bytes.
Status.dwAvailPageFile:Page file left in bytes.
Status.dwTotalVirtual: Total virtual memory in bytes.
Status.dwAvailVirtual: Virtual memory left in bytes.

Before presenting the memory values, you should convert them into giga, mega or kilobytes.