Button1Click(Sender: TObject); var h: HMENU; begin {系统菜单句柄} h := GetSystemMenu(Handle, False); AppendMenu(h, MFT_STRING, MenuCmdID1, '新添加的菜单 ...
確定! 回上一頁