Менеджер памяти Delphi

[Scabby]

Здравствуйте. Помогите пожалуйста.
Нужно написать менеджер памяти.
соображений нет

[__STDC__]

Состояние ОЗУ что ли проверять?
GlobalMemoryStatus(Mem); в помощь...
Mem структура типа TMemoryStatus..
Структура TMemoryStatus имеет следующий прототип:

	{
type
	TMemoryStatus = record
		dwLength: DWORD;
		dwMemoryLoad: DWORD; //Загрузка памяти в %
		dwTotalPhys: DWORD; //Кол-во физической памяти
		dwAvailPhys: DWORD; //Кол-во доступной физической памяти
		dwTotalPageFile: DWORD; //Размер файла подкачки
		dwAvailPageFile: DWORD; //Кол-во свободного места в файле подкачки
		dwTotalVirtual: DWORD; //Виртуальная память
		dwAvailVirtual:DWORD; //Свободная виртуальная память
end;
	}

Это из моей старой проги, каменты впадлу удалять...
вот моя прога, которую я тогда писал.. RAM Control.rar
если надо могу дать исходники
Доделать ее руки не дошли, поэтому она просто тупо мониторит состояние RAM...

[__STDC__]

К сожалению исходники, как я только что обнаружил, уже стали частью истории... Однако весь исходный код сохранился в моей статье, которую я писал по этому поводу.. Вот статья: ram.txt