请问如何得到当前系统菜单的宽度？？？

Question

tagMENUBARINFO = packed record
    cbSize: DWORD;
    rcBar: TRect;        { rect of bar, popup, item }
    hMenu: HMENU;        { real menu handle of bar, popup }
    hwndMenu: HWND;      { hwnd of item submenu if one }
{    fBarFocused:1: BOOL;} { bar, popup has the focus }
{    fFocused:1: BOOL; }  { item has the focus }
    FocusedBits: BYTE;
  end;
  TMenuBarInfo = tagMENUBARINFO;{$EXTERNALSYM GetMenuBarInfo}
function GetMenuBarInfo(hend: HWND; idObject, idItem: Longint;
  var pmbi: TMenuBarInfo): BOOL; stdcall;

Answer 1

tagMENUBARINFO = packed record
    cbSize: DWORD;//这个应该是尺寸值吧

Answer 2

奇怪了，我的帮助里怎么没有这个函数，
但是可以用，你们用什么查的，有没有最新的msdn?

Answer 3

奇怪了，我的帮助里怎么没有这个函数，
但是可以用，你们用什么查的，有没有最新的msdn?

Answer 4

奇怪了，我的帮助里怎么没有这个函数，
但是可以用，你们用什么查的，有没有最新的msdn?

Answer 5

我的帮助里怎么没有这个函数呢，
那有最新的msdn???

Answer 6

//呵呵～～～错！下面代码测试通过，具体的含义你自己看看吧procedure TForm1.N1Click(Sender: TObject);
var
  vRect: TRect;
begin
  GetMenuItemRect(Handle, PopupMenu1.Handle, TMenuItem(Sender).MenuIndex, vRect);
  Caption := Format('%d,%d', [vRect.Left, vRect.Right]);
end;

Answer 7

//呵呵～～～错！下面代码测试通过，具体的含义你自己看看吧procedure TForm1.N1Click(Sender: TObject);
var
  vRect: TRect;
begin
  GetMenuItemRect(Handle, PopupMenu1.Handle, TMenuItem(Sender).MenuIndex, vRect);
  Caption := Format('%d,%d', [vRect.Left, vRect.Right]);
end;

Answer 8

MSDN最新的，当然在Microsofthttp://msdn.microsoft.com/library/

Answer 9

呵呵，这下对了，over!
非常感谢!!!!!!!!!!!!!!

Answer 10

呵呵，这下对了，over!
非常感谢!!!!!!!!!!!!!!