procedure DeleteMenu(Handle:THandle);<br>var<br> SysMenu:HMenu;<br> i:integer;<br> j:integer;<br>begin<br> SysMenu:=GetSystemMenu(Handle,False);<br> i:=GetMenuItemCount(SysMenu)-1;<br> for j:=i downto 0 do<br> deletemenu(sysmenu,getsubmenu(sysmenu,j),MF_BYPOSITION);<br>end;<br>//============<br>调用<br>deletemenu(application.handle);