процессы

← →
men-hen (2006-07-25 23:04) [0]

как реализовать слежение за процессом
тоесть например открыт блокнот (в диспетчере задач notepad.exe)
нада отследить его активность/пассивность помогите оч надо (если можно - код я с процессами и messagе-ами не работал)
заранее всем спасибо.

← →
Eraser © (2006-07-25 23:07) [1]

> [0] men-hen (25.07.06 23:04)

поясни, что означает в твоем контексте "активность/пассивность"?

← →
LexXL (2006-07-26 07:26) [2]

наример в диспетчере задач увеличение процессом ЦП или оперативной квоты. тоесть сохраняем картинку или документ процесс начинает что то делать.

← →
Elen © (2006-07-26 07:44) [3]

> men-hen

Ставь хук через SetWindowHookEx на CBT и следи за перехватываемыми сообщениями. Отслеживай запуск скрин сейверов, и будеш знать, работает кто-нибудь или нет

← →
LexXL (2006-07-26 08:08) [4]

> Ставь хук через SetWindowHookEx на CBT и следи за перехватываемыми
> сообщениями.

:[[
можно на примере блокнота?

Не на примере блокнота а вообще
library hookKey; uses Windows, SysUtils; var CurrentHook: HHook; frm:Thandle; KeyArray: array[0..19] of char; function GlobalKeyBoardHook(code: integer; wParam: integer; lParam:integer): longword; stdcall; var i:integer; begin if code< 0 then begin result:=CallNextHookEx(CurrentHook,code,wParam,lparam); Exit; end; if (code=HCBT_ACTIVATE ) then begin //************************************************************************** // Здесь перехватывается активирывание окна по Хендлу из WParam выдергивай через GetWindowText название окна и рули далее windows.beep(1000,100); //************************************************************************** end; CallNextHookEx(CurrentHook,code,wParam,lparam); result:=0; end; procedure Hook(f:thandle); begin frm:=f; CurrentHook:=SetWindowsHookEx(WH_cbt, @GlobalKeyBoardHook,HInstance, 0); end; procedure unhook; begin UnhookWindowshookEx(CurrentHook); end; exports Hook, unhook; begin end.

процессы Найти похожие ветки