Исходники и листинги ::: Delphi ::: А сколько у Вас оперативы?

1
2
3
4
5
6
7
8
  function GetRAM: Cardinal;
  var
    MS: TMemoryStatus;
  begin
    MS.dwLength := SizeOf(MS);
    GlobalMemoryStatus(MS);
    Result := Round(MS.dwTotalPhys  / 1048576);
  end;
<<< Предыдущая работа

Вернуться в галерею исходников
А сколько у Вас оперативы?
Автор: Sanjia*
Город: Канск
Дата: 16.01.2009  16:42
Комментариев: 4
Просмотров: 1749
Оценка: 1 (1|0|0|0|0) [1]

Вернуться на главную
Авторский комментарий к работе: Функция, которая определяет объём ОЗУ.
Работа опубликована администратором Sauron
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Conqeror* ::: комментарий от 01.04.2009 | 15:51
  Подмастерье (ур.12)
Очки: 7458
Город:
Тв. работ: 66
Рег: 15.11.2006 (1459)
А главное какой полезный
L-Zassik ::: комментарий от 12.03.2009 | 18:09
L-Zassik Посвященный (ур.10)
Очки: 4033
Город: Томск
Тв. работ: 50
Рег: 27.04.2006 (35)
какой сложный листнинг


--------------------
It's Good To Be Bad
Sanjia* ::: комментарий от 19.01.2009 | 17:29
Sanjia Неофит (ур.7)
Очки: 924
Город: Канск
Тв. работ: 5
Рег: 17.06.2008 (7882)
Ну можно было обратить внимание на ссылку

Исходники и листинги ::: Delphi ::: А сколько у Вас оперативы?


--------------------
Поступай с другими так, как хочешь что бы поступали с тобой
Kane* ::: комментарий от 19.01.2009 | 05:20
Kane Перспективный (ур.8)
Очки: 1556
Город: Якутск
Тв. работ: 9
Рег: 09.10.2008 (8737)
Ловко. На Delphi функция?


--------------------
Все что хорошо начинается кончается плохо. А что плохо начинается кончается еще хуже.