如何用API生成一个菜单？(50分)

如果有例子更好了<br><br>就是直接用API生成vcl里面的那些基本的控件<br><br>谢谢

利用API产生菜单～～～<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; uMenu,uSubMenu :HMenu;<br>begin<br>&nbsp; uSubMenu := CreatePopupMenu;<br>&nbsp; AppendMenu(uSubMenu, MF_ENABLED or MF_UNCHECKED or MF_STRING,<br>&nbsp; &nbsp; &nbsp; 2, '关闭');<br>&nbsp; uMenu :=CreateMenu;<br>&nbsp; AppendMenu(uMenu, MF_ENABLED or MF_POPUP<br>&nbsp; &nbsp; &nbsp; or MF_UNCHECKED or MF_STRING, uSubMenu, '文件');<br>&nbsp; SetMenu(Handle, uMenu);<br>end;

3Q!