Форум: "Основная";
Текущий архив: 2003.06.09;
Скачать: [xml.tar.bz2];
ВнизПолучить размер памяти, занятый приложением Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c