Форум: "Начинающим";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 и следи за перехватываемыми
> сообщениями.


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

---

← →
Elen ©   (2006-07-26 10:57) [5]

Не на примере блокнота а вообще
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.



---

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

Форум: "Начинающим";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.038 c