RAM miqdarının göstərilməsi

[Ʌüsal]

procedure TForm1.Timer1Timer(Sender: TObject);

var

m: TMemoryStatus;

temp: integer;

begin

m.dwLength:=sizeof(m);

GlobalMemoryStatus(m);

with m do

begin

//Загруженность памяти

label1.caption:=IntToStr (dwMemoryLoad)+' %';

// Всего физической

label2.caption:=IntToStr (dwTotalPhys)+' байт';

// Свободно физической

label3.caption:=IntToStr (dwAvailPhys)+' байт';

// Всего страничной

label4.caption:=IntToStr (dwTotalPageFile)+' байт';

// Свободно страничной

label5.caption:=IntToStr (dwAvailPageFile)+' байт';

// Всего выиртуальной

label6.caption:=IntToStr (dwTotalVirtual)+' байт';

//Свободно виртуальной

label7.caption:=IntToStr (dwAvailVirtual)+' байт';

//Загруженность на ProgressBar1

progressbar1.Max:= dwTotalPhys;

progressbar1.Position:=dwTotalPhys-dwAvailPhys;

 

end;

 

end;

 

end.

 

Forma 1 ədəd Timer 7 ədəd Label 1 ədəd isə ProgressBar əlavə edin.Timer-in üstündə iki dəfə klik edin və yuxarıdakı kodu daxıl edin.

[saka-muka]

men hecne basa dusmedim))

[Zirve]

saka-muka Delphi 7 programı üçündür

[saka-muka]

hee ona hele girismemisem))

[Guest E_I_E]

Baxmayaraq ki Delphi7-dən anlayışım yoxdur, ilk sınağım uğurlu oldu.

İşlədi. Ramı göstərdi.

Təşəkkür Vüsal qaqam

 

Telefon qeydiyyat kitabçası düzəltmək üçün video + text dərslik paylaşa bilərsən qaqa?