Is GetMenuItemInfo not work in acrobat???

Question

I want invoke menu item(save) with SendMessage,but I can't get menu item(save) by GetSubMenu.
the code:
procedure ExecSave(h: THandle);
var
      muMain, ChildMenu: HMENU;
      k, n: integer;
      info, infosub: TMenuItemInfo;
      buffer, buffersub: array[0..254] of Char;
begin
      muMain := GetMenu(h);
      fillchar(info, sizeof(info), 0);
      info.cbSize := sizeof(info);
      info.fMask := MIIM_TYPE or MIIM_SUBMENU;
      info.dwTypeData := buffer;
      info.cch := 255;
      GetMenuItemInfo(muMain, 0, true, info);
     ChildMenu := getsubmenu(muMain, 0);
      k := GetMenuItemCount(ChildMenu);
      for n := 0 to k - 1 do begin
           fillchar(infosub, sizeof(infosub), 0);
           infosub.cbSize := sizeof(infosub);
           infosub.fMask := MIIM_ID or MIIM_TYPE or MIIM_STATE or MIIM_SUBMENU;
           infosub.dwTypeData := buffersub;
           infosub.cch := 255;
           GetMenuItemInfo(ChildMenu, n, true, infosub);
          // infosub.dwTypeData always is nil
          if Pos('Ctrl+S', infosub.dwTypeData) > 0 then begin
                    PostMessage(h, WM_COMMAND, GetMenuItemID(ChildMenu, n), 0);
           end;
      end;
end;

Answer 1

The Com Interface is not work under win 7（above acrobat 7），so I want use sendmessage to invoke save command。
（http://forums.adobe.com/thread/757369?）
it looks like  ，sendkey is not a good way