| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос [D5, D6, Win95/98, Win2k]

Alexander Beliy ©   (2001-12-08 02:03:00) 

Где можно узнать про TMemoryStatus, TOSVersionInfo и им подобные? Что еще из этой серии есть?

---

Alexander Beliy   (2001-12-10 14:21:00) [1]

Спасибо всем !!!!!!

---

Anatoly Podgoretsky   (2001-12-09 15:56:00) [2]

Теперь понятно про что речь.
Тогда проще всего открыть файл windows.pae и дополнительно win32.hlp

---

Rem   (2001-12-09 13:40:00) [3]

Прошу прощения, поспешил. Передвызовом этих функций необходимо обязательно указать размер записей:

MemoryStatus.dwLength := SizeOf(MemoryStatus);

и

OsVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);

---

Rem   (2001-12-09 13:34:00) [4]

TMemoryStatus, TOSVersionInfo - не компоненты. Это структуры (записи), в которых Windows возвращает системную информацию.
TMemoryStatusзаполняется функцией GlobalMemoryStatus() и показывает загрузку памяти (%), объем физической памяти (всего и доступно), страничной памяти (всего и доступно), виртуальной памяти (всего и доступно):

TMemoryStatus = record
dwLength: DWORD;
dwMemoryLoad: DWORD;
dwTotalPhys: DWORD;
dwAvailPhys: DWORD;
dwTotalPageFile: DWORD;
dwAvailPageFile: DWORD;
dwTotalVirtual: DWORD;
dwAvailVirtual: DWORD;
end;

Для получения информации о текущем состоянии памяти:

var
MemoryStatus: TMemoryStatus;
begin
GlobalMemoryStatus(MemoryStatus);
...
end;

TOSVersionInfoзаполняется функцией GetVersionEx(), и содержит версию Windows (старшую и младшую), номер сборки, идентификатор платформы, и строку с информацией об установленном ServicePack (NT) или с дополнительной информацией о системе (9x):

TOSVersionInfo = record
dwOSVersionInfoSize: DWORD;
dwMajorVersion: DWORD;
dwMinorVersion: DWORD;
dwBuildNumber: DWORD;
dwPlatformId: DWORD;
szCSDVersion: array[0..127] of AnsiChar;
end;

Для получения информации об операционной системе:

var
OSVersionInfo: TOSVersionInfo;
begin
if GetVersionEx(OSVersionInfo) then
begin
...
end
else
// Exception
end;

---

Anatoly Podgoretsky   (2001-12-08 19:50:00) [5]

Наверно у авторов этих компонент.
Из этой серии может быть великое множество, сделай поиск по специализированным архивам.

---

Rem   (2001-12-08 16:58:00) [6]

GlobalMemoryStatus - интерактивная справка по Ctrl+F1

---

Наверх