Текущий архив: 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.021 c
