Скачать: CL | DM;

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

← →
Novenkij ©   (2003-07-27 16:21) [0]

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

---

← →
Rouse_ ©   (2003-07-27 16:47) [1]

К примеру так
========================================================
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;

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

---

← →
default ©   (2003-07-27 17:04) [2]

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

---

← →
Novenkij ©   (2003-07-27 17:31) [3]

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

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

---

← →
Other   (2003-07-27 18:06) [4]

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

---

← →
default ©   (2003-07-27 18:13) [5]

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

---

← →
Novenkij ©   (2003-07-27 18:35) [6]

Tema zakrita. vsem spasibo

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c