Размер оперативной памяти

@kabardinec · Регистрация: 10.01.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток! Кто знает, как можно вывести на экран объем оперативки равный больше 4 гб? помогите кто знает.. GLIBWMI такой информации не предоставляет...

Delphi

begin
         Memoryst.dwLength:=Sizeof(MemorySt);
         GlobalMemoryStatus(MemorySt);
         Memo1.Lines.Add(IntToStr(MemorySt.dwMemoryLoad)+'%');
         Memo1.Lines.Add(FloatToStrF(MemorySt.dwTotalPhys,ffFixed,100,1));
         Memo1.Lines.Add(FloatToStrF(MemorySt.dwAvailPhys,ffFixed,100,1));
        end;

этот код определяет, как 4 гб, любой объем который свыше 4 гб

@FIL · 21.03.2014, 23:34

On computers with more than 4 GB of memory, the GlobalMemoryStatus function can return incorrect information, reporting a value of –1 to indicate an overflow. For this reason, applications should use the GlobalMemoryStatusEx function instead.

GlobalMemoryStatusEx
http://stackoverflow.com/quest... rystatusex

@kabardinec · 22.03.2014, 00:08 **[ТС]**

FIL, GlobalMemoryStatusEX подчеркивает красным..

Delphi

GlobalMemoryStatusex(MS1);
    showmessage('KiloBytes of physical memory: '+FormatFloat('#,###" KB"', MS1.ullTotalPhys / 1024)+chr(10)+
                 'Percent of memory in use: '+Format('%d%%', [MS1.dwMemoryLoad])+chr(10)+
                 'KiloBytes of free physical memory: '+FormatFloat('#,###" KB"', MS1.ullAvailPhys /1024)+chr(10)+chr(10)+
                 'KiloBytes of paging file space: '+FormatFloat('#,###" KB"', MS1.ullTotalPageFile / 1024)+chr(10)+
                 'KiloBytes of free paging file space: '+FormatFloat('#,###" KB"', MS1.ullAvailPageFile / 1024)+chr(10)+chr(10)+
                 'KiloBytes of virtual address space: '+FormatFloat('#,###" KB"', MS1.ullTotalVirtual / 1024)+chr(10)+
                 'KiloBytes of free virtual address space: '+FormatFloat('#,###" KB"', MS1.ullAvailVirtual / 1024) );

@cotseec · 22.03.2014, 00:13

Сообщение от kabardinec

подчеркивает красным..

по ссылке у тов. FIL на StackOverflow показано объявление экспортируемой функции GlobalMemoryStatusEx

@FIL · 22.03.2014, 00:24

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  DWORDLONG = UInt64;
 
  PMemoryStatusEx = ^TMemoryStatusEx;
  TMemoryStatusEx = packed record
    dwLength: DWORD;
    dwMemoryLoad: DWORD;
    ullTotalPhys: DWORDLONG;
    ullAvailPhys: DWORDLONG;
    ullTotalPageFile: DWORDLONG;
    ullAvailPageFile: DWORDLONG;
    ullTotalVirtual: DWORDLONG;
    ullAvailVirtual: DWORDLONG;
    ullAvailExtendedVirtual: DWORDLONG;
  end;
 
function GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx): BOOL; stdcall; external kernel32;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  MemStatus: TMemoryStatusEx;
begin
  try
  // initialize the structure
  FillChar(MemStatus, SizeOf(MemStatus), 0);
  MemStatus.dwLength := SizeOf(MemStatus);
  // check return code for errors
  Win32Check(GlobalMemoryStatusEx(MemStatus));
 
  ShowMessage(Format('dwLength: %d', [MemStatus.dwLength]) + #13#10 +
              Format('dwMemoryLoad: %d', [MemStatus.dwMemoryLoad]) + #13#10 +
              Format('ullTotalPhys: %d', [MemStatus.ullTotalPhys]) + #13#10 +
              Format('ullAvailPhys: %d', [MemStatus.ullAvailPhys]) + #13#10 +
              Format('ullTotalPageFile: %d', [MemStatus.ullTotalPageFile]) + #13#10 +
              Format('ullAvailPageFile: %d', [MemStatus.ullAvailPageFile]) + #13#10 +
              Format('ullTotalVirtual: %d', [MemStatus.ullTotalVirtual]) + #13#10 +
              Format('ullAvailVirtual: %d', [MemStatus.ullAvailVirtual]) + #13#10 +
              Format('ullAvailExtendedVirtual: %d', [MemStatus.ullAvailExtendedVirtual]));
  except
    on E: Exception do
    begin
      ExitCode := 1;
      ShowMessage(Format('[%s] %s', [E.ClassName, E.Message]));
    end;
  end;
end;
 
end.

@kabardinec · 22.03.2014, 00:55 **[ТС]**

cotseec, FIL, это я смотрел по ссылке... и пробовал запустить... пустая форма и никакой информации...

Вы не злитесь... я новичек причем самоучка...

Добавлено через 5 минут

Сообщение от kabardinec

GlobalMemoryStatusEX подчеркивает красным..

begin пропустил случайно..сори за невнимательность..

@FIL · 22.03.2014, 01:02

Сообщение от kabardinec

пустая форма и никакой информации

Обработчик OnFormCreate наверно не назначен.

@kabardinec · 22.03.2014, 01:27 **[ТС]**

FIL, брат.. теперь чтоб в label вывести...типы не совместимы label и string..
че с ним делать?

Delphi

lbl1:=(Format('dwLength: %d', [MemStatus.dwLength]) + #13#10 +
              Format('dwMemoryLoad: %d', [MemStatus.dwMemoryLoad]) + #13#10 +
              Format('ullTotalPhys: %d', [MemStatus.ullTotalPhys]) + #13#10 +
              Format('ullAvailPhys: %d', [MemStatus.ullAvailPhys]) + #13#10 +
              Format('ullTotalPageFile: %d', [MemStatus.ullTotalPageFile]) + #13#10 +
              Format('ullAvailPageFile: %d', [MemStatus.ullAvailPageFile]) + #13#10 +
              Format('ullTotalVirtual: %d', [MemStatus.ullTotalVirtual]) + #13#10 +
              Format('ullAvailVirtual: %d', [MemStatus.ullAvailVirtual]) + #13#10 +
              Format('ullAvailExtendedVirtual: %d', [MemStatus.ullAvailExtendedVirtual]));

@northener · 22.03.2014, 01:51

Сообщение от kabardinec

теперь чтоб в label вывести...типы не совместимы label и string..

У TLabel есть свойство Caption. Вот ему и присваивай то, что ты хочешь, чтобы этот label отображал.

P.S. Ну уж раздобудь для себя где-нибудь букварь по Дельфи. Ну нельзя так начинать.

@kabardinec · 22.03.2014, 02:14 **[ТС]**

Сообщение от northener

У TLabel есть свойство Caption. Вот ему и присваивай то, что ты хочешь, чтобы этот label отображал.

)) ппц голова у меня..))) че то с головой у меня не порядок..))

Сообщение от northener

P.S. Ну уж раздобудь для себя где-нибудь букварь по Дельфи. Ну нельзя так начинать.

есть у меня книжки...и не один, не два...)

Добавлено через 22 секунды
друзья, сори, за глупые вопросы такие)))

Размер оперативной памяти

Решение

Решение

@FIL Модератор 3491 / 2614 / 741 Регистрация: 19.09.2012 Сообщений: 7,976
	21.03.2014, 23:34	2
	On computers with more than 4 GB of memory, the GlobalMemoryStatus function can return incorrect information, reporting a value of –1 to indicate an overflow. For this reason, applications should use the GlobalMemoryStatusEx function instead. GlobalMemoryStatusEx http://stackoverflow.com/quest... rystatusex 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	22.03.2014, 00:13	4
	Сообщение от kabardinec подчеркивает красным.. по ссылке у тов. FIL на StackOverflow показано объявление экспортируемой функции GlobalMemoryStatusEx 0

@kabardinec 9 / 14 / 0 Регистрация: 10.01.2014 Сообщений: 277
	22.03.2014, 00:55 [ТС]	6
	cotseec, FIL, это я смотрел по ссылке... и пробовал запустить... пустая форма и никакой информации... Вы не злитесь... я новичек причем самоучка... Добавлено через 5 минут Сообщение от kabardinec GlobalMemoryStatusEX подчеркивает красным.. begin пропустил случайно..сори за невнимательность.. 0

@northener пофигист широкого профиля 4753 / 3188 / 861 Регистрация: 15.07.2013 Сообщений: 18,453
	22.03.2014, 01:51	9
	Сообщение было отмечено kabardinec как решение Решение Сообщение от kabardinec теперь чтоб в label вывести...типы не совместимы label и string.. У TLabel есть свойство Caption. Вот ему и присваивай то, что ты хочешь, чтобы этот label отображал. P.S. Ну уж раздобудь для себя где-нибудь букварь по Дельфи. Ну нельзя так начинать. 1

@kabardinec 9 / 14 / 0 Регистрация: 10.01.2014 Сообщений: 277
	22.03.2014, 02:14 [ТС]	10
	Сообщение от northener У TLabel есть свойство Caption. Вот ему и присваивай то, что ты хочешь, чтобы этот label отображал. )) ппц голова у меня..))) че то с головой у меня не порядок..)) Сообщение от northener P.S. Ну уж раздобудь для себя где-нибудь букварь по Дельфи. Ну нельзя так начинать. есть у меня книжки...и не один, не два...) Добавлено через 22 секунды друзья, сори, за глупые вопросы такие))) 0