Delphi 向窗体的系统菜单添加菜单项.rar

Delphi向窗体的系统菜单添加菜单项，也就是在系统默认的菜单项中，添加自定义的菜单项，我记得有不少类似的例子，这个是书中的例子，也是挺简单的，高手请绕行。　　有多少个菜单项，都会用循环逐项显示出来，　　AppendMenu(GetSystemMenu(Handle,FALSE),MF_SEPARATOR,0,'');　　withMainMenu1do　　begin　　forI:=0toItems.Count-1do　　AppendMenu(GetSystemMenu(self.Handle,FALSE),mf_Popup,　　Items[I].Han