Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

Help!!! 


MystiX   (2002-03-07 16:13) [0]

Как можно узнать сколько оперативки занимает процесс,и завершить
его если надо?

--------------------------
Заранее спасибо!!!



cdaDmitriy   (2002-03-07 18:33) [1]

procedure TForm1.Button2Click(Sender: TObject);
var
// hProcess : THANDLE;
pmc: PROCESS_MEMORY_COUNTERS;

begin

//hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, FALSE, GetCurrentProcess );

//if GetProcessMemoryInfo( hProcess, @pmc, sizeof(pmc)) then begin
RichEdit1.Lines.Clear;
GetProcessMemoryInfo( GetCurrentProcess, @pmc, sizeof(pmc));
RichEdit1.Lines.Add("---------------------------------------------");
RichEdit1.Lines.Add("Err : "+ FloatToStr(pmc.PageFaultCount));
RichEdit1.Lines.Add("Max.Mem.(Kb) : "+ FloatToStr(pmc.PeakWorkingSetSize/1024));
RichEdit1.Lines.Add("LPul max : "+ FloatToStr(pmc.QuotaPeakPagedPoolUsage));
RichEdit1.Lines.Add("LPul : "+ FloatToStr(pmc.QuotaPagedPoolUsage));
RichEdit1.Lines.Add("NLPul max : "+ FloatToStr(pmc.QuotaPeakNonPagedPoolUsage) );
RichEdit1.Lines.Add("NLPul : "+ FloatToStr(pmc.QuotaNonPagedPoolUsage) );
RichEdit1.Lines.Add("Vmem.(Kb) : "+ FloatToStr(pmc.PagefileUsage/1024));
RichEdit1.Lines.Add("Max Vmem (Kb): "+ FloatToStr(pmc.PeakPagefileUsage/1024));
RichEdit1.Lines.Add("Mem(Kb) : "+ FloatToStr(pmc.WorkingSetSize/1024));
RichEdit1.Lines.Add("---------------------------------------------");
//end;

//CloseHandle( hProcess );

end;



MystiX   (2002-03-07 19:42) [2]

Всё сделал, а она мне пишет кучу ошибок,можь модуль какой подключить?



Song   (2002-03-08 09:46) [3]

Может ShellApi?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
1-80465           Starkom               2002-03-12 09:55  2002.03.25  
Как программно раскрыть выпадающий список в TComboBox?


3-80434           blankalex             2002-02-27 12:24  2002.03.25  
Ib_Util.dll


3-80400           Igor_                 2002-02-26 10:53  2002.03.25  
QReport


1-80496           Шрек                  2002-03-12 03:27  2002.03.25  
Скомпилировать библиотеку только с нужными функциями


7-80694           andey                 2001-12-20 19:28  2002.03.25  
подскажите кто знает