Форум: "Система";
Поиск по всему сайту: 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.013 c
1-43083           KvORubin              2002-02-26 15:42  2002.03.14  
TRichEdit - ПОМОГИТЕ !!!


3-42949           Baks                  2002-01-21 21:15  2002.03.14  
ошибка: Тable lavel changed


6-43127           Yuri Btr              2001-12-27 11:23  2002.03.14  
Передача файла по Socket


1-43057           Gayrus                2002-02-26 16:12  2002.03.14  
PageControl


14-43146          Merlin                2002-01-25 04:31  2002.03.14  
Вышла новая версия чисто русского DELPHI !!!!