Home

Page 288
Page 288
background image

Железная мастерская

Содержимое вкладки Память будет заполняться при событии

 глав-

ной формы в процедуре

 которая должна быть объявлена

в разделе private следующим образом:

private

( Private declarations }

procedure GetMemoryinfo;

Опишите эту процедуру и нажмите

 чтобы Delphi соз-

дал пустую заготовку. В ней нужно написать следующее:

procedure

 : TMemoryStatus;

begin

 := Sizeof (Memlnfo);

 (Memlnfo);

 div 1024) + '

 div 1024) +

 div 1024) + • K';
 div 1024) + ' K';

 :=

 div

 div 100);

 :=

 div

 div 100);

{если значение слишком маленькое, то меняем цвет на красный)

if

 < 5) then

else

 := clActiveCaption;

if

 < 20) then

 := clRed

else

 clActiveCaption;

end;

В первой строчке заполняется свойство dwLength структуры

 которая

имеет тип TMemoryStatus. В этом свойстве нужно обязательно указать

размер структуры

 После этого вызывается

GlobalMemoryStatus, которой нужно передать нашу структуру. После выпол-

нения функция заполнит все поля структуры оперативной информацией.

Теперь у нас в структуре Memlnfo находится вся необходимая информация о
состоянии памяти компьютера. Вот свойства, которые вас могут заинтересовать:

 dwTotalPhys — физическая оперативная память всего;
 dwAvailPhys — доступная оперативная память;

• dwTotalPageFile — общий размер файла подкачки;

 dwAvailPageFile — доступный размер файла подкачки.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.