MemoryStatus를 안쓰고 굳이 MemoryStatusEx를 쓰시고자 하는 이유가 있어요?

굳이 MemoryStatusEx를 사용할려고 하는 이유는
메모리가 4G 이상일경우 MemoryStatus가 인식을 못한다는 거에요..
메모리가 4G 이상일경우에는 windows2000이후버전에서만 지원되는 MemoryStatusEx를 사용해야만 메모리 상태를 알수 있다는 거죠..

그럼..장마철에 비조심.. ^^

hsr/////////////////////////////////////////////////////////////
그럼 이렇게 써보세요.......
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMemoryStatusEx = record
    dwLength,
    dwMemoryLoad: DWORD;
    ullTotalPhys,
    ullAvailPhys,
    ullTotalPageFile,
    ullAvailPageFile,
    ullTotalVirtual,
    ullAvailVirtual,
    ullAvailExtendedVirtual: int64;
  end;
  PMemoryStatusEx = ^TMemoryStatusEx;
  TGlobalMemoryStatusEx = function(lpBuffer: PMEMORYSTATUSEX): BOOL; stdcall;



type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  _GlobalMemoryStatusEx: TGlobalMemoryStatusEx;
  function GlobalMemoryStatusEx(lpBuffer: PMEMORYSTATUSEX): BOOL; stdcall;
implementation

{$R *.dfm}
function GlobalMemoryStatusEx;
begin
  if Assigned(_GlobalMemoryStatusEx) then
    Result:=_GlobalMemoryStatusEx(lpBuffer)
  else
    Result:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    MSEX :TMemoryStatusEx;
begin
    @_GlobalMemoryStatusEx:=GetProcAddress(GetModuleHandle('kernel32'),PChar('GlobalMemoryStatusEx'));

    ZeroMemory(@MSEX,SizeOf(MSEX));
    MSEX.dwLength:=SizeOf(MSEX);
    GlobalMemoryStatusEx(@MSEX);
    Label1.Caption := Format('Memory: %d MB',[MSEX.ullTotalPhys div 1024 div 1024]);
end;

end.

정말 고맙습니다..

제가 사용하는건 델파이5.0인데..에러메시지가
[Fatar Error] Variants.dcu not found라고 나더라구요.
그래서 아래 uses중 Variants 지우고 하니깐 잘 되네요..
없어도 되는 건지 궁금해서 다시 글을 올립니다...
그럼 시원한 하루되세요.. ^^

hsr/////////////////////////////////////////////////////
참조가 되셨다니 다행입니다.

저도 잘 모르지만 델파이 6부터는 디폴트로 선언되구요,
델파이 5 이전 버젼의 SysUtils와 기타 유닛의 함수가 분할되고 새로운게 추가되어서 Variants로 된것 같아요.

5 이전은 삭제하시는게 맞을겁니다.

hsr/////////////////////////////////////////////////////////
GlobalMemoryStatus이 함수를 사용해보시죠

var
    MemStat : TMemoryStatus;
begin
    MemStat.dwLength := sizeof(TMemoryStatus);
    GlobalMemoryStatus(MemStat);
    with MemStat do begin
         Label1.Caption := Format('%d KB',[Trunc(dwTotalPhys/1024)]); //총메모리
         Label2.Caption := Format('%d KB',[Trunc(dwAvailPhys/1024)]); //MemAvailable
         Label3.Caption := Format('%d %%',[trunc(dwAvailPhys/dwTotalPhys*100)]); //사용메모리
         Label4.Caption := Format('%d KB',[Trunc(dwTotalPageFile/1024)]); //SwapFileSetting
         Label5.Caption := Format('%d KB',[Trunc((dwTotalPageFile-dwAvailPageFile)/1024)]); //SwapFileSize
         Label6.Caption := Format('%d %%',[100-trunc(dwAvailPageFile/dwTotalPageFile*100)]); //SwapFileUsage
     end;
end;