Fórum Subclasseando o explorer #341706

  HHook_Message := SetWindowsHookEx(WH_GetMessage, @LL_Messsage_Proc, HInstance, 0); // instala a hook
  HTray := FindWindow(´Shell_TrayWnd´, nil); // pega o handle da bandeja
  PostMessage(HTray, WM_USer+167, 157, 134); // envia a msg p/ subclassear

function LL_Messsage_Proc(nCode:Integer; WP:WParam; LP:lParam):Integer; stdcall;
var Msg:TMsg;
begin
  CopyMemory(@Msg, Pointer(LP), SizeOf(TMsg));
  if (Msg.message = (WM_User+167)) and
     (Msg.wParam  = 157)           and
     (Msg.lParam  = 134)           then
  begin
    HTray := FindWindow(´Shell_TrayWnd´, nil);
    HProc := SetWindowLong(HTray, GWL_WndProc, DWord(@_Window_Proc_Lock)); // subclassea explorer
    Exit;
  end;
  Result := CallNextHookEx(HHook_Message, nCode, WP, LP);
end;

function _Window_Proc_Lock(h:Thandle; iMsg:UInt; WP:WParam; LP:LParam):Integer; stdcall;
begin
  HTray  := FindWindow(´Shell_TrayWnd´, nil);
  Result := CallWindowProc(Pointer(HProc), HTray, iMsg, WP, LP); // passa a msg p/ outras hooks
end;