Форум: "Система";
Текущий архив: 2004.01.29;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

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