Программно отследить активность определенного процесса

← →
Eugem © (2006-02-22 17:05) [0]

Прошу помощи в решении задачи. Необходимо программно отследить активность определенного приложения (процесса). Её (активность) можно видеть, если нажать Alt+Ctrl+Del и появится диспетчер задач. Далее можно видеть число записей программы (счетчик записей), которые она делает во время выполнения. Очень важно программно определить именно число записей, которые делает процесс во время своего выполнения.

← →
clickmaker © (2006-02-22 17:17) [1]

GetProcessTimes поможет в определении активности?

← →
begin...end © (2006-02-22 17:53) [2]

> Eugem © (22.02.06 17:05)

> Далее можно видеть число записей программы (счетчик записей),
> которые она делает во время выполнения. Очень важно программно
> определить именно число записей, которые делает процесс
> во время своего выполнения.

GetProcessIOCounters

← →
Eugem © (2006-02-22 22:59) [3]

GetProcessIOCounters подойдет, наверное. Вот только где описание этой функции?

← →
Eugem © (2006-02-23 00:40) [4]

попробовал в программе GetProcessIOCounters, при обработке алгоритма в середине выскакивает ошибка ввода/вывода. Подскажите что не так. Вот код:
***
type
IO_COUNTERS = packed record
ReadOperationCount : LARGE_INTEGER;
WriteOperationCount : LARGE_INTEGER;
OtherOperationCount : LARGE_INTEGER;
ReadTransferCount : LARGE_INTEGER;
WriteTransferCount : LARGE_INTEGER;
OtherTransferCount : LARGE_INTEGER;
end;

function GetProcessIoCounters(HANDLE:THandle;PIO_COUNTERS:IO_COUNTERS):boolean; external "kernel32.dll" name "GetProcessIoCounters";

procedure TForm1.FormActivate(Sender: TObject);
var
hSnap:THandle;
pe:TProcessEntry32;
cz:boolean;
cou:IO_COUNTERS;
cous:LARGE_INTEGER;
begin
listbox1.Clear;
pe.dwSize:=SizeOf(pe);
hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
cz:=GetProcessIoCounters(hSnap,cou);
If Process32First(hSnap,pe) then begin
listbox1.Items.Add(pe.szExeFile);
While Process32Next(hSnap,pe) do begin
listbox1.Items.Add(pe.szExeFile);
if GetProcessIoCounters(hSnap,cou) then cous:=cou.WriteOperationCount;
end;
end;
end;
***

← →
n0name (2006-02-23 06:33) [5]

Неправльно перевел прототип финкции
BOOL GetProcessIoCounters(
HANDLE hProcess,
PIO_COUNTERS lpIoCounters
);

function GetProcessIoCounters(hPorcess: THandle; lpIoCounters: PIO_COUNTERS): boolean

PIO_COUNTERS = ^IO_COUNTERS;

> Eugem © (22.02.06 22:59) [3]

В MSDN: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/getprocessiocounters.asp

> Eugem © (23.02.06 00:40) [4]

Во-первых, см. [5]. Во-вторых, не указано нужное соглашение о вызове (stdcall). В-третьих, в функцию Вы почему-то передаёте не дескриптор процесса, а дескриптор снимка, возвращённый CreateToolhelp32Snapshot.

type TIOCounters = packed record ReadOperationCount: Int64; WriteOperationCount: Int64; OtherOperationCount: Int64; ReadTransferCount: Int64; WriteTransferCount: Int64; OtherTransferCount: Int64; end; function GetProcessIoCounters(hProcess: Cardinal; var lpIoCounters: TIOCounters): BOOL; stdcall; external "kernel32.dll"; var hSnap, hProc: THandle; Counters: TIOCounters; PE: TProcessEntry32; begin hSnap := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0); if hSnap <> INVALID_HANDLE_VALUE then try PE.dwSize := sizeof(PE); if Process32First(hSnap, PE) then repeat hProc := OpenProcess(PROCESS_QUERY_INFORMATION, False, PE.th32ProcessID); try if GetProcessIoCounters(hProc, Counters) then ListBox.Items.Add( Format("Id: %d ExeName: %s WriteCount: %d", [PE.th32ProcessID, PE.szExeFile, Counters.WriteOperationCount])) finally CloseHandle(hProc) end until not Process32Next(hSnap, PE) finally CloseHandle(hSnap) end end

begin...end, огромное тебе СПАСИБО. Всё получилось :-) Я счастлив!!!!

Программно отследить активность определенного процесса Найти похожие ветки