Хук на 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

[volvo]

А можно название программки, которая этот лог сделала?

Я тебе лучше покажу, как DLL-ку изменить, чтоб такое лог получать, ладно? Вот функция хука (в DLL):

function CBTProc(Code: integer; myWParam: WPARAM;
                 myLParam: LPARAM): LRESULT; stdcall;
var
  className: string;
  ACopyData: TCopyDataStruct;
begin
  if Code < 0 then
  begin
    Result := CallNextHookEx(rHookRec^.HookID, code, myWParam, myLParam);
    exit;
  end;

  case Code of
    HCBT_CREATEWND:
    begin
      className := GetClName(myWParam);
      with aCopyData do
      begin
        dwData := 0;
        cbData := Length(className) * SizeOf(Char);
        lpData := PChar(className);
      end;
      SendMessage(RHookRec^.AppWindow, WM_COPYDATA, 0, LPARAM(@ACopyData));

      if pos(UpperCase('notepad'), UpperCase(GetClName(myWParam))) > 0 then // или className
      begin
        PostMessage(RHookRec^.AppWindow, MY_MESSAGE, myWParam, 0);
        result := 1; Exit;
      end;
    end;
  end;
  result := 0;
end;

, а вот так это ловится:

// в классе формы - заголовок
    procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;

// и реализация
procedure TForm1.WMCopyData(var Msg: TWMCopyData);
var
  Info: string;
  Len: Integer;
begin
  Len := Msg.CopyDataStruct.cbData div sizeof(Char);
  SetLength(Info, Len);
  Move(Msg.CopyDataStruct.lpData^, PChar(Info)^, Len * sizeof(Char));
  Memo1.Lines.Add(Info);
end;

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

И чего теперь

А теперь искать, какой из этих классов занимается собственно созданием приложения, и убивать именно его...