Delphi 2007 を使用して、システムの物理メモリの合計を取得する必要があります。4GB 以上のシステムで GlobalMemoryStatus を使用すると、エラーが発生するようです。Delphi 2007 では GlobalMemoryStatusEx が存在しないため、プログラムに関数呼び出しを手動で追加しました。Windows 7 x64 ではメモリが正しく返されますが (8GB)、Vista x32 システムでは正しくない値が返されます (このシステムでは 4GB のはずですが、2.9GB が返されます)。私が間違っているかもしれないアイデアはありますか? また、GlobalMemoryStatusEx は古いオペレーティング システムでも動作しますか?
type
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;
function getmemorysize:word;
var
memory: TMemoryStatusEx;
begin
FillChar(memory, SizeOf(memory), 0);
memory.dwLength := SizeOf(memory);
GlobalMemoryStatusEx(memory);
result:=memory.ullTotalPhys div (1024*1024);
end;