Текущий архив: 2003.06.09;
Скачать: CL | DM;

Вниз

Получить размер памяти, занятый приложением   Найти похожие ветки 

← →
anbezr   (2003-05-29 10:26) [0]

Привет!
подскажите, пож, как я могу получить размер ОЗУ, занятый моим приложением.
поиск ничего не дал...
Спасибо!

---

← →
McSimm2   (2003-05-29 10:32) [1]


procedure TAboutDlg.FormActivate(Sender: TObject);
const osName = "Система:" + Chr(9) + Chr(9) + "Windows %s";
osNumber = "Версия:" + Chr(9) + Chr(9) + "%d.%.d.%.d %s";
var OSInfo : TOSVersionInfo;
MemoryInfo : TMemoryStatus;
Platform: String[4];
begin
with OSInfo do
begin
dwOSVersionInfoSize := SizeOf(OSInfo);
GetVersionEx(OSInfo);
case dwPlatformId of
VER_PLATFORM_WIN32S : Platform := "32s";
VER_PLATFORM_WIN32_WINDOWS : begin
dwBuildNumber := dwBuildNumber and $0000FFFF;
if (dwMajorVersion > 4) or ((dwMajorVersion = 4) and
(dwMinorVersion >= 10)) then Platform := "98"
else Platform := "95";
end;
VER_PLATFORM_WIN32_NT : Platform := "NT";
end;
OSVersionLb.Caption := Format(osName, [Platform]);
OSNumberLb.Caption := Format(osNumber, [dwMajorVersion, dwMinorVersion, LoWord(dwBuildNumber), szCSDVersion]);
end;
MemoryInfo.dwLength := SizeOf(MemoryInfo);
GlobalMemoryStatus(MemoryInfo);
OSMemoryLb.Caption := "Доступная память:" + Chr(9) +
FormatFloat("#,###", MemoryInfo.dwTotalPhys div 1024) + " Кбайт";
end;


---

← →
anbezr   (2003-05-29 10:50) [2]

Большое спасибо!

---

← →
McSimm2   (2003-05-29 10:53) [3]

ага ...

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c