Форум: "Система";
Поиск по всему сайту: 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.014 c
3-42973           Di_wind               2002-02-13 20:23  2002.03.14  
Access +Delphi+DAO


1-43110           DDDeN                 2002-02-27 10:39  2002.03.14  
Меню из ресурса


14-43147          SoftOne               2002-01-26 03:25  2002.03.14  
Браузеры


1-43074           Michael C             2002-02-27 11:37  2002.03.14  
Это опять я, со своими IP


1-43091           Demon ltd             2002-02-27 23:42  2002.03.14  
Повторная помощь с созданием инстольника