API перехват

[Irat]

Здравствуйте!
Подскажите пожалуйста какие значения может принимать code для функции CallWndProc!
Язык Delphi!
Только на WASM не посылайте!!!
Спасибо!

[B_N]

Если nCode равен HC_ACTION то сообщение надо обработать, если nCode < 0, то нужно вызвать CallNextHookEx с переданными параметрами и вернуть её результат.

[Irat]

Кроме HC_ACTION есть еще что-нибудь?
Как получить путь к кому предназначено сообщение?
И про nCode<>0 по подробнее если можно?
Спасибо!!!

[B_N]

Прототип хука:

LRESULT CALLBACK CallWndProc(
int nCode,
WPARAM wParam,
LPARAM lParam
);

Ненулевой wParam показывает, что сообщение отправлено текущим потоком, lParam - указатель на CWPSTRUCT

typedef struct {
LPARAM lParam;
WPARAM wParam;
UINT message;
HWND hwnd;
} CWPSTRUCT, *PCWPSTRUCT;

т.е. в ней все параметры вызова оконной процедуры, естественно по hwnd находим, кому это предназначается.
Коды хуков определяются так:

#define HC_ACTION 0
#define HC_GETNEXT 1
#define HC_SKIP 2
#define HC_NOREMOVE 3
#define HC_NOREM HC_NOREMOVE
#define HC_SYSMODALON 4
#define HC_SYSMODALOFF 5

Рекомендуется при всех ненулевых кодах не обрабатывать сообщение, а передавать управление CallNextHookEx (и возвращать ее результат) Но! Это-то как раз по желанию, мало ли, может мы не хотим ставить в известность следующие хуки (правда, как и на чём это скажется останется только гадать )

[Irat]

library lovushka1;

uses
  SysUtils, Windows, messages, Dialogs;

{$R *.res}
var SysHook: HHook = 0;
    Wnd: Hwnd = 0;

function CallWndProc(Code:integer; wParam:WPARAM; lParam:LPARAM):integer; export; stdcall;
var Str:String;
begin
if Code>=0 then
   begin
   Str:=TCBTCreatWnd(Pointer(lParam)^).lpcs.lpszName;
   ShowMessage(Str);
   Result:=callNextHookEx(SysHook, Code, wParam, lParam);
   end
else Result:=callNextHookEx(SysHook, Code, wParam, lParam);
end;

procedure RunStopHook(State:Boolean)export; stdcall;
begin
if State=true then
   begin
   SysHook := SetWindowsHookEx(WH_GETMESSAGE, @CallWndProc, HInstance, 0);
   end
else
   begin
   UnhhokWindowsHookEx(SysHook);
   SysHook:= 0;
   end;
end;

exports RunStopHook index 1;

begin
end.

Подскажите что тут не правильно? Осталось самая малость написать dll, а сил нет!!!
Выдает ошибку Undeclared indentifier:'TCBTCreatWnd'.
Спасибо!

[B_N]

Сообщение от Irat

[CODE]Выдает ошибку Undeclared indentifier:'TCBTCreatWnd'.

А что такое, в самом деле, TCBTCreatWnd ???

[Irat]

В строке Str:=TCBTCreatWnd(Pointer(lParam)^) .lpcs.lpszName; япытаюсь получить путь сообщения.
А что не правильно? А как правильно?
Спасибо!

[B_N]

Я точно так же, как и компилятор (Undeclared indentifier:'TCBTCreatWnd'), не могу понять, где определяется TCBTCreatWnd и что это?

[Irat]

Ненулевой wParam показывает, что сообщение отправлено текущим потоком, lParam - указатель на CWPSTRUCT
Цитата:typedef struct {
LPARAM lParam;
WPARAM wParam;
UINT message;
HWND hwnd;
} CWPSTRUCT, *PCWPSTRUCT;

т.е. в ней все параметры вызова оконной процедуры, естественно по hwnd находим, кому это предназначается.

Как это реализовать, какая процедура нужна?
Спасибо!

[B_N]

Irat, ну откройте тайну, что Вы сделать хотите? У меня ощущение, что Вы делаете что-то совсем не то, что получается. А реализовать элементарно - объявить структуру CWPSTRUCT, если на C, то даже объявлять не нужно, всё уже есть, если на паскале, то

type
    CWPSTRUCT = record
      lParam : dword;
      wParam : dword;
      message : dword;
      hwnd : HWND;
    end;
    PCWPSTRUCT = ^CWPSTRUCT;

объявить функцию:

function CallWndProc(nCode : integer; wParam : WPARAM; pcwps : PCWPSTRUCT) : LRESULT;

и определить её

function CallWndProc(nCode : integer; wParam : WPARAM; pcwps : PCWPSTRUCT) : LRESULT;
begin
    if( (pcwps <> nil) and (pcwps.hwnd = XXXXXXXXX) ) then begin
// здесь работаем
    end;
end;