Код:
unit UnitUtl;
interface
uses
Windows, Messages;
type
TMemoryStatusEx = record
dwLength: DWORD;
dwMemoryLoad: DWORD;
ullTotalPhys: Int64;
ullAvailPhys: Int64;
ullTotalPageFile: Int64;
ullAvailPageFile: Int64;
ullTotalVirtual: Int64;
ullAvailVirtual: Int64;
ullAvailExtendedVirtual: Int64;
end;
function GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx): Boolean; stdcall; external kernel32;
function GlobalMemoryStatusExTotalPhys: Int64;
function GlobalMemoryStatusExAvailPhys: Int64;
implementation
function GlobalMemoryStatusExTotalPhys: Int64;
var
MemoryStatus: TMemoryStatusEx;
begin
Result:=-1;
MemoryStatus.dwLength:=SizeOf(TMemoryStatusEx);
if GlobalMemoryStatusEx(MemoryStatus) then Result:=MemoryStatus.ullTotalPhys;
end;
function GlobalMemoryStatusExAvailPhys: Int64;
var
MemoryStatus: TMemoryStatusEx;
begin
Result:=-1;
MemoryStatus.dwLength:=SizeOf(TMemoryStatusEx);
if GlobalMemoryStatusEx(MemoryStatus) then Result:=MemoryStatus.ullAvailPhys;
end;
end.
__________________
Пишу программы за еду.
__________________
|