1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
| procedure TForm1.Timer1Timer(Sender: TObject); var Memory: TMemoryStatus; begin Memory.dwLength := Sizeof (Memory);
GlobalMemoryStatus(Memory); Canvas.Font.Name := 'terminal'; Canvas.Font.Height := 16; Canvas.TextOut(10, 10, 'Speicher: ' + IntToStr(Memory.dwTotalPhys div 1048576) + ' MByte'); Canvas.TextOut(10, 30, 'Freier Speicher: ' + IntToStr(Memory.dwAvailPhys div 1048576) + ' MByte'); Canvas.TextOut(10, 50, 'Groesse PageFile: ' + IntToStr(Memory.dwTotalPageFile div 1048576) + ' MByte'); Canvas.TextOut(10, 70, 'Freier PageFile: ' + IntToStr(Memory.dwAvailPageFile div 1048576) + ' MByte'); end; |