Хук на HCBT_CREATEWND Опции

[Unconnected]

Привет всем

Надо поставить хук на создание окон. Нашел (и слегка модифицировал) такой код:

var HookHandle: hHook;

function CBTProc(Code: integer; WParam: word; LParam: Integer): Longint; stdcall;
type PCBT_CREATEWND=^CBT_CREATEWND;
var s: pchar;
    z: PCBT_CREATEWND;
    ok: Integer;
    s2:string;
    i:byte;
begin
     if Code<0 then begin
       Result := CallNextHookEx(HookHandle, code, WParam, LParam);
       exit;
     end;
      case Code of
        HCBT_CREATEWND: begin 
          z:=PCBT_CREATEWND(LParam);
          s:=z.lpcs.lpszName;
          if s<>nil then begin
            s2:='';
            for i:=1 to length(s) do begin
              s2:=s2+s^; 
              inc(s);
            end;
            if pos('Блокнот',s2)>0 then begin 
              Result:=1; 
              exit;
            end;
          end;
        end;
      end;
    Result := 0;
end;

begin
  HookHandle := SetWindowsHookEx(WH_CBT, @CBTProc, HInstance, 0);
end;

Я сделал перевод из pchar в string, до этого там была какая-то жутко тупая проверка, которая почему-то работала. Этот код, как я понял, распространяется только на моё приложение. hookhandle>=0.

Сообщение отредактировано: Unconnected - 13.09.2010 23:13

[Unconnected]

Ловить HCBT_CREATEWND, и вместо того, чтобы просто вернуть 1

Ну по сути result:=1 и терминатор делают одно и то же, только для первого надо для каждого приложения искать нужные классы, а тут раз и всё

Да, а что насчет работы под Win64? Уверен?

Попробовал на своей win7 home 64 - перехват работает хорошо - нужные окна виду не показывают. Но вот PostMessage, кажется, недокидывает до основной программы сообщение, но это уже наверное мой косяк.. или не мой..)

это точно так же снесет QIP...

Легким движением руки 20 строк превращаются...)))

Ну вроде пока всё работает, спасибо