Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

Вопрос 


Alexander Beliy   (2001-12-08 02:03) [0]

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



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

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



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

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



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

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;



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

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

MemoryStatus.dwLength := SizeOf(MemoryStatus);

и

OsVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);



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

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



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

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




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.038 c
3-42924           lel (A)               2002-02-13 10:24  2002.03.14  
Oracle, Delphi 3, BDE 4,5 редактор полей , а может что нибудь еще???


14-43168          Yuraz                 2002-01-31 09:58  2002.03.14  
Люди, кто нить встречался ли с отсылкой e-mail на ICQ?


14-43163          BlackRainbow          2002-01-31 11:27  2002.03.14  
Help file for LMDTools


3-42908           Draculenok            2002-02-13 15:00  2002.03.14  
Для локальной сети


1-43094           ZPS                   2002-02-27 20:51  2002.03.14  
добавить строку в конец txt файла