Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

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

Читайте также:
  1. I ВВЕДЕНИЕ.
  2. Аналитическое введение.
  3. Введение.
  4. Введение.
  5. ВВЕДЕНИЕ.
  6. Введение.
  7. Введение.

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, а также коды:

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


Дата добавления: 2015-07-20; просмотров: 40 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
ЗНАКИ И СИМВОЛЫ РОЖДЕСТВА| Состояние памяти.

mybiblioteka.su - 2015-2024 год. (0.005 сек.)