Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

Как узнать сколько памяти занято и сколько свободно???Очень надо   Найти похожие ветки 

 
Dor ©   (2003-01-08 19:37) [0]

Как узнать сколько памяти занято и сколько свободно???Очень надо
пожалуйста подскажите


 
orlov ©   (2003-01-08 19:43) [1]

void __fastcall TForm1::Memory1Click(TObject *Sender)

{
char buf[16];
MEMORYSTATUS ms;
ms.dwLength = sizeof(MEMORYSTATUS);
GlobalMemoryStatus(&ms);
wsprintf (buf, "%d", ms.dwTotalPhys);
MemoryForm->TotalPhysicalEdit->Text = buf;
wsprintf (buf, "%d", ms.dwAvailPhys);
MemoryForm->FreePhysicalEdit->Text = buf;
wsprintf (buf, "%d", ms.dwTotalPageFile);
MemoryForm->TotalPagingEdit->Text = buf;
wsprintf (buf, "%d", ms.dwAvailPageFile);
MemoryForm->FreePagingEdit->Text = buf;
wsprintf (buf, "%d", ms.dwTotalVirtual);

MemoryForm->TotalVirtualEdit->Text = buf;
wsprintf (buf, "%d", ms.dwAvailVirtual);
MemoryForm->FreeVirtualEdit->Text = buf;
MemoryForm->ShowModal();

}


 
TTCustomDelphiMaster ©   (2003-01-08 20:38) [2]

смотри в FAQ и кладовке


 
Armen   (2003-01-11 17:20) [3]

>To Orlov

GlobalMemoryStatus работает с DWORD, а если памяти больше 2G ?

Надо так:

type
TMemoryStatusEx = record
dwLength: DWORD;
dwMemoryLoad: DWORD;
dwTotalPhys: int64;
dwAvailPhys: int64;
dwTotalPageFile: int64;
dwAvailPageFile: int64;
dwTotalVirtual: int64;
dwAvailVirtual: int64;
dwAvailExVirtual: int64;
end;

procedure GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx); stdcall;

impementation

procedure GlobalMemoryStatusEx; external kernel32 name "GlobalMemoryStatusEx";
....
...

end.



 
Armen   (2003-01-11 17:21) [4]

>To Orlov

GlobalMemoryStatus работает с DWORD, а если памяти больше 2G ?

Надо так:

type
TMemoryStatusEx = record
dwLength: DWORD;
dwMemoryLoad: DWORD;
dwTotalPhys: int64;
dwAvailPhys: int64;
dwTotalPageFile: int64;
dwAvailPageFile: int64;
dwTotalVirtual: int64;
dwAvailVirtual: int64;
dwAvailExVirtual: int64;
end;

procedure GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx); stdcall;

impementation

procedure GlobalMemoryStatusEx; external kernel32 name "GlobalMemoryStatusEx";
....
...

end.



 
Armen   (2003-01-11 17:21) [5]

>To Orlov

GlobalMemoryStatus работает с DWORD, а если памяти больше 2G ?

Надо так:

type
TMemoryStatusEx = record
dwLength: DWORD;
dwMemoryLoad: DWORD;
dwTotalPhys: int64;
dwAvailPhys: int64;
dwTotalPageFile: int64;
dwAvailPageFile: int64;
dwTotalVirtual: int64;
dwAvailVirtual: int64;
dwAvailExVirtual: int64;
end;

procedure GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx); stdcall;

impementation

procedure GlobalMemoryStatusEx; external kernel32 name "GlobalMemoryStatusEx";
....
...

end.




Страницы: 1 вся ветка

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
14-30080
Benbo
2003-02-21 01:13
2003.03.10
Библиотека VaClasses


14-30087
Думкин
2003-02-22 08:52
2003.03.10
Звинения


3-29785
vell
2003-02-18 14:23
2003.03.10
SQL


8-29958
Dangerouse
2002-11-27 14:05
2003.03.10
Из avi сделать jpg


14-30107
Supreme 2
2003-02-21 10:32
2003.03.10
Вопросы к девушкам