Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.08.21;
Скачать: CL | DM;

Вниз

как узнать объем памяти занимаемой приложением?   Найти похожие ветки 

 
Gold ©   (2005-07-04 14:07) [0]

Вопрос, видимо, уже задавался не раз.. Поиск что-то не работает..
Спасибо..


 
Digitman ©   (2005-07-04 14:15) [1]

никак.


 
alpet ©   (2005-07-04 14:18) [2]

Объем... хм все что приходит на ум = x^3, где x - сторона приложения.


 
gold ©   (2005-07-04 14:19) [3]

как тогда узнает диспетчер задач?


 
gold ©   (2005-07-04 14:20) [4]

>alpet ©   (04.07.05 14:18) [2]
А если приложение не в форме куба? :)


 
Digitman ©   (2005-07-04 14:20) [5]


> как тогда узнает диспетчер задач?


а где ты видел, чтобы какой-то там "диспетчер задач" писал ИМЕННО ТАК :
"объем памяти занимаемой приложением равен тому-то" ?


 
Digitman ©   (2005-07-04 14:22) [6]


> если приложение не в форме куба


вот ежели приложение в форме криволинейной трапеции, тогда - пожалуйста !  ... и память там тебе, и все что угодно, и с боку бантик


 
gold ©   (2005-07-04 14:36) [7]

меня устроит объем, который отображает диспетчер задач


 
Digitman ©   (2005-07-04 14:38) [8]

КАКОЙ такой "объем" ?
и что он тебе даст ?
ты вообще-то понимаешь, что есть "память" в Win32 ?


 
Игорь Шевченко ©   (2005-07-04 14:45) [9]


> меня устроит объем, который отображает диспетчер задач


Он два объема отображает.
Оба определяются вызовом функции PsAPI GetProcessMemoryInfo


 
gold ©   (2005-07-04 14:59) [10]

>Игорь Шевченко ©   (04.07.05 14:45) [9]

На Вашу помощь я и расчитывал, когда вопрос задавал.
а где можно посмотреть синтаксис, еще лучше пример...


 
Ботвин Дмитрий   (2005-07-04 15:21) [11]

Вот так примерно:

uses psAPI;

procedure TForm1.Button1Click(Sender: TObject);
 var
   pmc: PPROCESS_MEMORY_COUNTERS;
   cb: Integer;
 begin
   cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
   GetMem(pmc, cb);
   pmc^.cb := cb;
   if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then
     Label1.Caption := IntToStr(pmc^.WorkingSetSize) + " Bytes"
   else
     Label1.Caption := "Ошибка...";
   FreeMem(pmc);
 end;


 
Игорь Шевченко ©   (2005-07-04 15:24) [12]

gold ©   (04.07.05 14:59) [10]

uses
 PsAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if GetProcessMemoryInfo(GetCurrentProcess, @FCounters,
   SizeOf(FCounters)) then begin
   ShowMessageFmt("Process uses %d Kb physical memory",
     [FCounters.PeakWorkingSetSize div 1024]);
 end;
end;


 
gold ©   (2005-07-04 15:46) [13]

Огромно спасибо


 
isasa ©   (2005-07-04 16:11) [14]

что есть "память" в Win32 ?
:)
доступное для приложения адресное пространство(=2^32-1)


 
Digitman ©   (2005-07-04 16:15) [15]


> isasa ©   (04.07.05 16:11) [14]


> доступное для приложения адресное пространство


это только ВАП.



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

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

Наверх




Память: 0.49 MB
Время: 0.059 c
3-1121013164
atruhin
2005-07-10 20:32
2005.08.21
Репликация по email или на дискетах


14-1122694770
Vlad Oshin
2005-07-30 07:39
2005.08.21
наше дело правое Мы победим иеще г.СталинИВ изображен


1-1122845585
SpyBoy
2005-08-01 01:33
2005.08.21
A la windows xp


14-1122632474
Kerk
2005-07-29 14:21
2005.08.21
Удобство vs приватность в сети. Диалог. Мысли?


6-1115347102
piople
2005-05-06 06:38
2005.08.21
ISAPI