Хук на WH_CALLWNDPROC, сообщение WM_Paste

[Winexcel]

Пытаюсь отловить сообщение WM_Paste, WM_Copy, но нечего не выходит, процедура для отлова глобальная, вот сообственно и она:

function HookPaste(code: integer; wParam: word; lParam: longint) : longint; stdcall;
var
  fileDir:string;
Begin
  if code < 0 then
    Result:= CallNextHookEx(CurHook, Code, wParam, lParam)
  else begin
           FileDir:='c:\log.txt';
          AssignFile(f, Filedir);
          if not FileExists(FileDir) then begin
            Rewrite(f);
            CloseFile(f);
          end;
          if TMsg(Pointer(lParam)^).message = WM_Copy then begin
            Append(f);
            Writeln(f, TMsg(Pointer(lParam)^).message);
            CloseFile(f);
          end;
          {SendMessage(Wnd,HookMsg,wParam, GetCurrentThreadId);}
          Result:=CallNextHookEx(CurHook, Code, wParam, lParam);
  end;
end;

Не ловит сообщение при копировании или вставки в окно, в логе FileDir пусто, но почему? Хук устанавливается нормально, если убрать условие

  if TMsg(Pointer(lParam)^).message = WM_Copy then begin

То все сообщение пишутся в лог.

[саша40]

WM_Copy и WM_Paste по идее должны работать для текста или картинок, но не файлов. Файлы в буфере обмена Проводника находятся по другому.

[Winexcel]

Сообщение от саша40

WM_Copy и WM_Paste по идее должны работать для текста или картинок, но не файлов. Файлы в буфере обмена Проводника находятся по другому.

Здравствуйте! Только что читал вашу тему на форуме, сделал по аналогии =) копирую я текст именно. Например из текстового документа.

[Winexcel]

Немного переделал код по msdn:

var
  VStruct : PCWPSTRUCT;
  VMess : Cardinal;
  f:TextFile;
  FileDir:String;
begin
  Result := 0;
  //
  if (Code < 0) then
    Result:=CallNextHookEx(CurHook, Code, wParam, lParam)
  else
  if (Code = HC_ACTION) then
   begin
    VStruct := PCWPSTRUCT(Pointer(lParam));
    VMess := VStruct.message;
      //
          FileDir:='c:\log.txt';
          AssignFile(f, Filedir);
           Append(f);
          Writeln(f, 'MSG Lparam = ',VMess);
          Writeln(f, 'Lparam = ',lParam);
          Writeln(f, 'Wparam = ',WParam);
          CloseFile(f);
       end;
      //
end;

Но результатов это не дало, в текстовом документе примерно такое содержание:

MSG Lparam = 1633676
Lparam = 1633524
Wparam = 0
MSG Lparam = 1633656
Lparam = 1633532
Wparam = 0
MSG Lparam = 1633676
Lparam = 1633524
Wparam = 0
MSG Lparam = 8716519
Lparam = 1633600
Wparam = 0
MSG Lparam = 30278158
Lparam = 1633600
Wparam = 0
MSG Lparam = 0
Lparam = 1634248
Wparam = 0
MSG Lparam = 1633676
Lparam = 1633524
Wparam = 0
MSG Lparam = 1633656
Lparam = 1633532
Wparam = 0
MSG Lparam = 1633676
Lparam = 1633524
Wparam = 0
MSG Lparam = 1704024
Lparam = 1633600
Wparam = 0

Исходный результат в переменной lparam, пробовал переводить в 0x результатов не дало, или я уже не туда пошёл совсем? Ибо цифры в мессадже как-то подозрительно выглядят.

[Пепел Феникса]

сообщения не содержат в себе данных.

[Winexcel]

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

сообщения не содержат в себе данных.

Мне нужно не данные перехватить, а само сообщение, с успехом смог перехватить WM_CLOSE

var
  VStruct : PCWPSTRUCT;
  VMess : Cardinal;
  f:TextFile;
  FileDir:String;
begin
  Result := 0;
  //
  if (Code < 0) then
    Result:=CallNextHookEx(CurHook, Code, wParam, lParam)
  else
  if (Code = HC_ACTION) then
   begin
    VStruct := @lParam;
    VMess := VStruct.message;
      //
      case VMess of
        WM_CLOSE: begin
                    FileDir:='c:\log.txt';
                    AssignFile(f, Filedir);
                     Append(f);
                    Writeln(f, 'MSG Lparam = ',VMess );
                    Writeln(f, 'Lparam = ',lParam);
                    Writeln(f, 'Wparam = ',WParam);
                    CloseFile(f);
                  end;
      end;
    end;
end;

Но не WM_COPY, WM_Paste, WM_Cut, и прочее перехватывать не как не хочет
Кто знает прошу помощи.

[Silver_S]

Строка из поста #4

VStruct := PCWPSTRUCT(Pointer(lParam));

и из поста #6

VStruct := @lParam;

не одно и тоже.
Это просто фантастика, что Вам таким образом удалось отловить WM_CLOSE!

[Winexcel]

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

Строка из поста #4

VStruct := PCWPSTRUCT(Pointer(lParam));

и из поста #6

VStruct := @lParam;

не одно и тоже.
Это просто фантастика, что Вам таким образом удалось отловить WM_CLOSE!

Нет нечего не возможного , работает же