Fórum Variável em DLL #334784

const
  MENU_ITEM_ID = $999;

type
  PMSG = ^TMSG;

var
  WndProg :HWND = 1;   // *** Esta é a variável
  WndOwner :HWND;
  HWndHook :HHook;
  Buffer :array[0..128] of char;

function SysMsgProc(Code: Integer; wParam: Word; lParam: Longint): LongInt; stdcall;
var
  PWndMSG :PMSG;
begin
  if Code = MSGF_MENU then  // outro processo que não o atual
  begin
    PWndMSG := PMSG(lParam);
    MessageBox(0, PChar(Format(´Testando hook: hWnd ¬d, Wnd ¬d´, [PWndMSG^.hWnd, WndProg])), ´Teste´, MB_OK);
    if PWndMSG^.hWnd = WndProg then
    begin
      if (PWndMSG^.message = WM_MENUSELECT) then
      begin
        if LOWORD(PWndMSG^.wParam) = MENU_ITEM_ID then
        begin
          MessageBox(0, ´Meu item acionado´, ´Teste´, MB_OK);
          Exit;
        end else
          MessageBox(0, ´Outro item acionado´, ´Teste´, MB_OK);
      end;
    end;
  end;
  Result := CallNextHookEx(HWndHook, code, wParam, lParam);  // Passa evento para outros ganchos
end;

function InstallWndHook(var aWndOwner, aWnd :HWND): LongInt; stdcall;
begin
  WndOwner := aWndOwner;
  WndProg := aWnd;
  MessageBox(0, PChar(Format(´Testando hook: Wnd ¬d´, [WndProg])), ´Teste´, MB_OK);
  HWndHook := SetWindowsHookEx(WH_SYSMSGFILTER, @SysMsgProc, hInstance, 0);
  if HWndHook = 0 then
    Result := GetLastError
  else
    Result := 0;
end;