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

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