كيف يمكن ان نقياس

لمعرفة حجم الرام نستخدم الكود التالي :

procedure GetRamSize;
var 
 memory: TMemoryStatus; 
begin 
 memory.dwLength := SizeOf(memory);
 GlobalMemoryStatus(memory);
 ShowMessage('Total Ram Size: ' +
             FloatToStr(Roundto(memory.dwTotalPhys/1024/1024,-3)) + ' MBytes'+chr(10)+ 
             'Available Ram Size: ' + FloatToStr(Roundto(memory.dwAvailPhys/1024/1024,-3)) + ' MBytes');
end;

اما القرص الصلب ممكن حدا غيري يجابك لانو ما بعرف :D

وهذا مثال اخرى لمعرفة حجم الرام

procedure TForm1.Timer1Timer(Sender: TObject);
var
  x, y : real; 
  memory: TMemoryStatus; 
begin 
  memory.dwLength := SizeOf(memory); 
  GlobalMemoryStatus(memory);
  label1.Caption :='Size     : ' +
              IntToStr(memory.dwTotalPhys) + ' Bytes';
  label2.Caption :='Free    : ' +
              IntToStr(memory.dwAvailPhys) + ' Bytes';
x := memory.dwTotalPhys - memory.dwAvailPhys;
y := memory.dwTotalPhys;
Gauge1.Progress := round(((x/y)*100));
end;

:rolleyes: :rolleyes: :rolleyes:

بارك الله فيكم

ولكن وكيف اقياس حجم القرص الصلب

باستخدام تابع API

GetVolumeInformation

ابحث عنه في المنتدى فهناك الكثير من الأسئلة حوله