Введение. Dwordlong = int64; // ulonglong

Type

DWORDLONG = Int64; // ULONGLONG

{$EXTERNALSYM DWORDLONG}

PMemoryStatusEx = ^TMemoryStatusEx;

LPMEMORYSTATUSEX = PMemoryStatusEx;

{$EXTERNALSYM LPMEMORYSTATUSEX}

_MEMORYSTATUSEX = packed record

dwLength: DWORD;

dwMemoryLoad: DWORD;

ullTotalPhys: DWORDLONG;

ullAvailPhys: DWORDLONG;

ullTotalPageFile: DWORDLONG;

ullAvailPageFile: DWORDLONG;

ullTotalVirtual: DWORDLONG;

ullAvailVirtual: DWORDLONG;

end;

{$EXTERNALSYM _MEMORYSTATUSEX}

TMemoryStatusEx = _MEMORYSTATUSEX;

MEMORYSTATUSEX = _MEMORYSTATUSEX;

{$EXTERNALSYM MEMORYSTATUSEX}

procedure GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx); stdcall;

external kernel32 name 'GlobalMemoryStatus';

{$EXTERNALSYM GlobalMemoryStatusEx}

// Пример использования:

procedure TForm1.Button1Click(Sender: TObject);

var MemoryStatusEx: TMemoryStatusEx;

Begin

Memo1.Lines.Clear;

MemoryStatusEx.dwLength:= SizeOf(MemoryStatusEx);

GlobalMemoryStatusEx(MemoryStatusEx);

with MemoryStatusEx

Do

Begin

Memo1.Lines.Add(IntToStr(dwMemoryLoad) +

'% использованно памяти');

Memo1.Lines.Add(IntToStr(ullTotalPhys) +

' Всего физической памяти (в байтах)');

Memo1.Lines.Add(IntToStr(ullAvailPhys) +

' Доступно физической памяти (в байтах)');

Memo1.Lines.Add(IntToStr(ullTotalPageFile) +

' Всего виртуальной памяти (в байтах)');

Memo1.Lines.Add(IntToStr(ullAvailPageFile) +

' Доступно виртуальной памяти (в байтах) ');

Memo1.Lines.Add(IntToStr(ullTotalVirtual) +

' Адресное виртуальное простанство текущего процесса');

Memo1.Lines.Add(IntToStr(ullAvailVirtual) +

' Доступно байт виртуального адресного пространства текущего процесса');

end;

end;

Введение.

В статье рассматриваются способы получения системной информации о компьютере (операционная система, статус памяти, процессор и др.) Большинство примеров опирается на Windows API. Робота их подразумевается только под WIN32 (лишь отдельные функции работают под WIN32s). Статья направлена на аудиторию программистов Delphi, но может быть полезна программистам и других сред разработки приложений, интересующимся API и системной информацией. В статье использованы документы сайта http://apiwallst.ru, а также коды:

• SysInfo Component, Angel's;
• TSysInfo Component, RicoSoft;
• TSYSINFO 2.1, Brent Boswell.

Главы о памяти и процессах ранее мной публиковались в интернете. Здесь они представлены с незначительными изменениями. Остальные главы публикуются впервые.

Дата добавления: 2015-07-20