Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > ОС и железо
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 27.06.2008, 17:50
-=@=- -=@=- вне форума
Прохожий
 
Регистрация: 27.06.2008
Сообщения: 1
Репутация: 10
Лампочка оперативка

люди, как программно узнать какой объем оперативки стоит на тачке????
Ответить с цитированием
  #2  
Старый 27.06.2008, 19:05
san-46 san-46 вне форума
Активный
 
Регистрация: 25.04.2008
Сообщения: 383
Репутация: 33
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var  M: TMemoryStatus;
begin
  GlobalMemoryStatus(M);
  Label1.Caption := FloatToStr(M.dwTotalPhys); //в байтах
end;
__________________
Не забывайте делать резервные копии
Ответить с цитированием
  #3  
Старый 27.06.2008, 19:13
Аватар для zip000
zip000 zip000 вне форума
Начинающий
 
Регистрация: 24.07.2007
Сообщения: 194
Репутация: 25
По умолчанию

Эта функция не работает, если в системе больше 2Гб памяти .
__________________
Не профи, но и не чайник . D6 - лучше не придумали. Пока.
Ответить с цитированием
  #4  
Старый 27.06.2008, 19:53
san-46 san-46 вне форума
Активный
 
Регистрация: 25.04.2008
Сообщения: 383
Репутация: 33
По умолчанию

А так:
Код:
type
  TMemoryStatusEx = record
    dwLength: DWORD;
    dwMemoryLoad: DWORD;
    ullTotalPhys: Int64;
    ullAvailPhys: Int64;
    ullTotalPageFile: Int64;
    ullAvailPageFile: Int64;
    ullTotalVirtual: Int64;
    ullAvailVirtual: Int64;
    ullAvailExtendedVirtual: Int64;
  end;

  procedure GlobalMemoryStatusEx(var lpBuffer:TMemoryStatusEx); stdcall; 
                    external kernel32 name 'GlobalMemoryStatusEx';

var
  memStatus: TMemoryStatusEx;

procedure TForm1.Button1Click(Sender: TObject);
begin
  memStatus.dwLength := SizeOf(TMemoryStatusEx);
  GlobalMemoryStatusEx(memStatus);
  Label1.Caption := FloatToStr(memStatus.ullTotalPhys);
end;
У меня работает.
__________________
Не забывайте делать резервные копии
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:24.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter