Вопрос № 112837: Здравствуйте, уважаемые эксперты.
Требуется узнать по pid процесса ВСЮ память, что он занимает
включая ресурсы, динамическую память и т д
Так же требуется узнать занимаемую cpu загруженость...Вопрос № 112939: Здравствуйте. Прошу помочь в решение задачи.
Обеспечить двойным нажатием левой клавиши мыши вычитание из первого целого числа второго целого числа. Результат поставить вместо первого целого числа. Нажатием клавиши "Esc" восстановить исх...
Вопрос № 112.837
Здравствуйте, уважаемые эксперты.
Требуется узнать по pid процесса ВСЮ память, что он занимает
включая ресурсы, динамическую память и т д
Так же требуется узнать занимаемую cpu загруженость
Отправлен: 07.12.2007, 17:16
Вопрос задал: Wersaln (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: PavelGM
Здравствуйте, Wersaln!
Для памяти есть способ через использовани PSAPI.DLL. Ключевая функция GetProcessMemoryInfo. Код в приложении.
Для загрузки единственный мне известный способ - работать с Perfomance Counters. Если не ошибаюсь номер счетчика 230 - для процесса, 232 - для потока. Однако этот способ не очень-то прост. У меня есть работающий код для себя, но я его никак в порядок не приведу (рабтает и ладно :)) - поищите в Инете по этим словам, наверняка найдете что-то поприличнее или другой может способ есть.
Приложение:
Ответ отправил: PavelGM (статус: Студент)
Ответ отправлен: 09.12.2007, 17:15
Вопрос № 112.939
Здравствуйте. Прошу помочь в решение задачи.
Обеспечить двойным нажатием левой клавиши мыши вычитание из первого целого числа второго целого числа. Результат поставить вместо первого целого числа. Нажатием клавиши "Esc" восстановить исходное первое число.
Не удается неписпть процедуру восстановления первого числа нажатием клавиши "Esc". Использую 8.0 версию Borland Delphi.
Во-первых надо не забыть KeyPreview формы перевести в True.
Во-вторых ловить надо KeyDown - Esc может и не передаваться в KeyPress. Вот работающий перехват клавиши, а восстановление вы наверное сами справитесь :).
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then ShowMessage('Escape down');
end;
Ответ отправил: PavelGM (статус: Студент)
Ответ отправлен: 09.12.2007, 17:25