| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать объем оперативной памяти ( MB RAM ) ???

Novenkij ©   (2003-07-27 16:21:00) 

Как узнать объем оперативной памяти ( MB RAM )???

---

Novenkij   (2003-07-27 18:35:00) [1]

Tema zakrita. vsem spasibo

---

default   (2003-07-27 18:13:00) [2]

тебе же дали наводку - GlobalMemoryStatus
дальше смотри SDK

---

Other   (2003-07-27 18:06:00) [3]

Гы... слизали у Хорифика :)

---

Novenkij   (2003-07-27 17:31:00) [4]

[Error] Unit1.pas(255): Undeclared identifier: "Info"
[Error] Unit1.pas(256): Missing operator or semicolon
[Error] Unit1.pas(256): Undeclared identifier: "Lang"

Чего не хватает ?

---

default   (2003-07-27 17:04:00) [5]

вместо div 1024 div 1024 лучше писать shr 20

---

Rouse_   (2003-07-27 16:47:00) [6]

К примеру так
========================================================
function MemoryInfo:String;
var lpMemoryStatus : TMemoryStatus;
tmp:String;
begin
lpMemoryStatus.dwLength := SizeOf(lpMemoryStatus);
GlobalMemoryStatus(lpMemoryStatus);
with lpMemoryStatus do begin
Info.siMemoryLoad := IntToStr(dwMemoryLoad) + "%";
Info.siMemoryTotalPhisical := Format("%d "+Lang[141], [dwTotalPhys div 1020 div 1020]);
Info.siMemoryAvailablePhisical := Format("%d "+Lang[141],[dwAvailPhys div 1020 div 1020]);
Info.siTotalPageFile := Format("%d "+Lang[141],[dwTotalPageFile div 1024 div 1024]);
( "%d "+Lang[141],[dwAvailPageFile div 1024 div 1024])

К примеру так
========================================================
function MemoryInfo:String;
var lpMemoryStatus : TMemoryStatus;
tmp:String;
begin
lpMemoryStatus.dwLength := SizeOf(lpMemoryStatus);
GlobalMemoryStatus(lpMemoryStatus);
with lpMemoryStatus do begin
Info.siMemoryLoad := IntToStr(dwMemoryLoad) + "%";
Info.siMemoryTotalPhisical := Format("%d "+Lang[141], [dwTotalPhys div 1020 div 1020]);
Info.siMemoryAvailablePhisical := Format("%d "+Lang[141],[dwAvailPhys div 1020 div 1020]);
Info.siTotalPageFile := Format("%d "+Lang[141],[dwTotalPageFile div 1024 div 1024]);
Info.siAvailablePageFile := Format("%d "+Lang[141],[dwAvailPageFile div 1024 div 1024]);
Result:=tmp;
end;
end;

Желаю успехов

---

Наверх