[DarkByte]

Perdon por rehabilitar este hilo, pero estoy haciendo lo que quería hacer nuestro amigo Andrés, la colección de los hilos, y pensé que estaría mejor que estubiese el código identado.

Código Delphi [-]
//-Pon un TMemo (Memo1) y un TButton (Button1) en tu form
//-Pon éste código en el OnCLick de Button1:
 
procedure TForm1.Button1Click(Sender: TObject);
 var 
   MemoryStatus: TMemoryStatus;
 
 begin 
 
   Memo1.Lines.Clear;
 
   MemoryStatus.dwLength := SizeOf(MemoryStatus);
 
   GlobalMemoryStatus(MemoryStatus);
 
   with MemoryStatus do 
   begin 
     { Size of MemoryStatus record }
     Memo1.Lines.Add(IntToStr(dwLength) +
       ' Size of ''MemoryStatus'' record');
     { Per-Cent of Memory in use by your system }
     Memo1.Lines.Add(IntToStr(dwMemoryLoad) +
       '% memory in use');
     {The amount of Total Physical memory allocated to your system.}
     Memo1.Lines.Add(IntToStr(dwTotalPhys) +
       ' Total Physical Memory in bytes');
     { The amount available of physical memory in your system. }
     Memo1.Lines.Add(IntToStr(dwAvailPhys) +
       ' Available Physical Memory in bytes');
     { The amount of Total Bytes allocated to your page file }
     Memo1.Lines.Add(IntToStr(dwTotalPageFile) +
       ' Total Bytes of Paging File');
     { The amount of available bytes in your page file }
     Memo1.Lines.Add(IntToStr(dwAvailPageFile) +
       ' Available bytes in paging file');
     { The amount of Total bytes allocated to this program
        (generally 2 gigabytes of virtual space) }
     Memo1.Lines.Add(IntToStr(dwTotalVirtual) +
       ' User Bytes of Address space');
     { The amount of avalable bytes that is left to your program to use }
     Memo1.Lines.Add(IntToStr(dwAvailVirtual) +
       ' Available User bytes of address space');
   end; 
 end;