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

Вниз

Осталось оперативки.   Найти похожие ветки 

← →
LORDIK   (2003-11-10 20:36) [0]

Как узнать сколько всего оперативки на компе и сколько осталось свободного места в ней?

---

← →
wicked ©   (2003-11-10 20:42) [1]

GlobalMemoryStatus...

---

← →
LORDIK   (2003-11-10 20:50) [2]

Странно, но почему то происходит ошибка при нажатии на кнопку ошибка =(

procedure TForm1.Button1Click(Sender: TObject);
var i:MEMORYSTATUS;
begin
GlobalMemoryStatus(i);
Label1.Caption:= String(i.dwLength);
Label2.Caption:=String(i.dwMemoryLoad);
end;

---

← →
Suntechnic ©   (2003-11-11 01:24) [3]

Ну во-первых не мешало бы вот это перед вызовом GlobalMemoryStatus написать:
i.dwLength := SizeOf(MEMORYSTATUS);
А во-вторых кто тебя так учил int в строку преобразовывать?

procedure TForm1.Button1Click(Sender: TObject);
var i:MEMORYSTATUS;
begin
i.dwLength := SizeOf(MEMORYSTATUS);
GlobalMemoryStatus(i);
Label1.Caption:= IntToStr(i.dwLength);
Label2.Caption:= IntToStr(i.dwMemoryLoad);
end;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.011 c