Как получить весь размер системной памяти?
Falk0ner, вс, 06/07/2008 - 15:34.
function GetMemoryTotalPhys : DWord;
var
memStatus: TMemoryStatus;
begin
memStatus.dwLength := sizeOf ( memStatus );
GlobalMemoryStatus ( memStatus );
Result := memStatus.dwTotalPhys;
end;
var
memStatus: TMemoryStatus;
begin
memStatus.dwLength := sizeOf ( memStatus );
GlobalMemoryStatus ( memStatus );
Result := memStatus.dwTotalPhys;
end;
Взято из http://forum.sources.ru
Отправить комментарий