Подмена WndProc. Слетает прога.

[Silver_S]

Сообщение от Пепел Феникса

ничего подобного про С++ то не надо говорить.
WinAPI использует это соглашение о вызове, но не С++.

Проверил в C++Builder® XE. функции, у которых имеется директива _fastcall, передают параметры по одноименному соглашению, используемому в делфи. Без этой директивы, т е. по умолчанию, параметры передаются по соглашению stdcall.

[TwiX]

Silver_S
Массив я планировал заменить списком. Тут он не нужен.
А вот то, что функция называлась CallWindowProc, это забавно :D Сменил - ошибка та же. Только теперь в функцию один раз входит и вылетает (раньше и правда рекурсия была)
Вот хук (максимально урезал его) и лог из формы

uses
  Windows, messages, Classes, SysUtils;

var
  HookHandle: HHOOK = 0;
  pnt: Cardinal;


function MyWndProc(PrevWndProc: Pointer; Wnd: HWnd; Msg, wParam: Word; lParam: LRESULT): LRESULT;
begin
  SendMessage(FindWindow(nil, 'Form1'), WM_USER+2, Integer(pnt),0);
  result:=CallWindowProc(Pointer(pnt), Wnd, msg, wParam, lParam);
end;

function CBTProc(CODE, WParam, LParam: DWORD): DWORD; stdcall;
var
  wnd: HWND;
begin
  if CODE < 0 then
  begin
    result := CallNextHookEx(HookHandle, CODE, WParam, LParam);
    exit;
  end;

  wnd := WParam;
  if CODE = HCBT_ACTIVATE then
  begin
    if wnd = 0 then
    begin
      result := CallNextHookEx(HookHandle, CODE, WParam, LParam);
      exit;
    end;

    SendMessage(FindWindow(nil, 'Form1'), WM_USER+1, wnd,0);

    pnt:=GetWindowLongPtr(wnd, GWLP_WNDPROC);
    SendMessage(FindWindow(nil, 'Form1'), WM_USER+2, pnt,0);
    SetWindowLongPtr(wnd, GWL_WNDPROC, Integer(@MyWndProc));

    result:=0;
  end;

  if CODE = HCBT_DESTROYWND then
  begin
     SendMessage(FindWindow(nil, 'Form1'), WM_USER+2, 9999,0);
  end;

  result := CallNextHookEx(HookHandle, CODE, WParam, LParam);
end;

procedure SetHook(wnd: HWND); stdcall; export;
var
  pid: Cardinal;
begin
  pid:=GetWindowThreadProcessId(wnd);
  if HookHandle=0 then
    HookHandle:=SetWindowsHookEx(WH_CBT, @CBTProc, hInstance, pid);
end;

procedure DelHook; stdcall; export;
begin
  if HookHandle <> 0 then UnhookWindowsHookEx(HookHandle);
   HookHandle:=0;
end;

function IsActive:boolean; stdcall; export;
begin
  Result:=true;
  if HookHandle=0 then
    Result:=false;
end;

Вот лог из формы

6753294 found
DLL injected succesfully
6753294 window sent message
2036958 - это из обработки ACTIVATE
2036958 - это из новой функции (т.е. это нужный указатель)

[Silver_S]

У каждого окна, возможно, изначально была своя уникальная процедура окна, так как визуальные библиотеки (VCL etc) активно используют SetWindowLongPtr. Вы же отдаете все параметры в процедуру, сохраненную в pnt. Думаю, массив нужен. Чтоб для каждого окна вы могли вызвать его оригинальную процедуру.
Должно быть примерно так:

MyWndProc(Wnd: HWnd; Msg, wParam, lParam: LongInt): LRESULT; stdcall;

У вас 2 вызова SendMessage в ACTIVATE, поэтому handle 2036958 приходит 2 раза.

Если все заработает, то ваш лог сообщений может просто "захлебнуться", так как окну шлются десятки - тысячи сообщений ежесекундно. Лучше сделать просто счетчик.

[TwiX]

Зачем масив - мне бы хотя бы с одним окном разобраться? Активейт происходит только при одном клике на блокнот. Там же меняется его обработчик. Потом блокнот заходит в обработчик - поэтому 2036958 два раза - проверял.
Знаю, что должен захлебнуться. Но блокнот просто падает. Даже если убрать SendMessage из обработчика

[Silver_S]

Каждый элемент окна - поля ввода, кнопки - с точки зрения работы Windows тоже окна, имеющие handle и свой WndProc. Ставя хук на процесс, вы ставите хук на все его окна, а не только на основное и всем им меняете WndProc.

[TwiX]

Спасибо и на этом...
Не совсем понял почему на все эл-ты. Ведь я же на главное окно ставлю.
+Если убрать замену и посмотреть, что за сообщения будут приходить из Activate, то там будет только одно сообщение при однократном клике на блокнот.
Как сделать с массивом?

UPD: Написал я через массив. Проблема в том, что в wnd у моего обработчика совсем не тот хендл, который нужен. Как из обработчика получить хендл?

UPD2: Сегодня переписал заново, сначала потестив на собственном окне, заработало))) Наверно забыл stdcall когда в десятый раз копировал функцию из msdn и изменял её с C на делфи=)