Mega Code Archive

 

Categories / Delphi / System

 

Windows hafiza durumunun alinmasi

procedure TForm1.Button1Click(Sender: TObject); var Status : TMemoryStatus; begin Status.dwLength := sizeof( TMemoryStatus ); GlobalMemoryStatus( Status ); Memo1.Lines.Add('Toplam hafiza kullanim yüzdesi:' + IntToStr(Status.dwMemoryLoad)); Memo1.Lines.Add('Toplam hafiza büyüklügü (byte):' + IntToStr(Status.dwTotalPhys)); Memo1.Lines.Add('Kullanilabilir hafiza' + IntToStr(Status.dwAvailPhys)); Memo1.Lines.Add('Toplam Page File büyüklügü (byte):' + IntToStr(Status.dwTotalPageFile)); Memo1.Lines.Add('Kalan Page File (byte):' + IntToStr(Status.dwAvailPageFile)); Memo1.Lines.Add('Toplam virtual memory (byte):'+ IntToStr(Status.dwTotalVirtual)); Memo1.Lines.Add('Kalan virtual memory (byte):' + IntToStr(Status.dwAvailVirtual)); end;