| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Осталось оперативки. [D6, WinXP]
LORDIK © (2003-11-10 20:36:00)
Как узнать сколько всего оперативки на компе и сколько осталось свободного места в ней?
Suntechnic (2003-11-11 01:24:00) [1]
Ну во-первых не мешало бы вот это перед вызовом 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;
LORDIK (2003-11-10 20:50:00) [2]
Странно, но почему то происходит ошибка при нажатии на кнопку ошибка =(
procedure TForm1.Button1Click(Sender: TObject);
var i:MEMORYSTATUS;
begin
GlobalMemoryStatus(i);
Label1.Caption:= String(i.dwLength);
Label2.Caption:=String(i.dwMemoryLoad);
end;
wicked (2003-11-10 20:42:00) [3]
GlobalMemoryStatus...
| |
