systeem, in de vorm van links boven het systeem menu, toe te voegen aan de projecten, het type, de     een gebeurtenis = (platform),    ...,         programma formcreate (afzender: TObject);    , particuliere,         programma wmsyscommand (de VAR - nieuws: twmsyscommand); de boodschap wm_syscommand; de procedures aan de hand van een gebeurtenis,.,. Formcreate (afzender: TObject); en een  ,   menucaption = "& over..."; var, de     ik: getallen,  ;   systemmenu: alleen    ;, menuiteminfo:tmenuiteminfo, beginnen,  ;   systemmenu:= (handvat, is GetSystemMenu valse); en     ik: = getmenuitemcount (systemmenu);  ,   fillchar (menuiteminfo, groot (menuiteminfo) 0);   {niet gebruiken,   groot (menuiteminfo) omdat Het nodig is,       Windows 95},     menuiteminfo.cbsize:= 44;    ,///////afscheider,     menuiteminfo.fmask:= miim_type;,     menuiteminfo.ftype:= mft_separator;,     het invoegen van een nieuw menu 's (systemmenu, ik, echt, menuiteminfo);     /verhoogd, nu     menuiteminfo.fmask:= miim_type of miim_id;,     menuiteminfo.ftype:= mft_string;,     menuiteminfo.dwtypedata:= PChar (menucaption);  ,   menuiteminfo.cch:= lengte (menucaption);  ,   menuiteminfo.wid:= 1101; ///////id moet < f000 dollar,     het invoegen van een nieuw menu' s (systemmenu, I + 1, echt, menuiteminfo);,,,, het einde van De procedure; een incident. Wmsyscommand (VAR nieuws: twmsyscommand); begin   erfenis,  ,; dat in de gevallen waarin     message.cmdtype,         1101:showMessage ("'); aan het einde van het einde van  ,  ;;, vóór de code, niet nog een menu aan het systeem.Je aanvraag, in het Oude Testament, als je de knop klikken het).Dat is omdat het creëren van een verbergen voor het raam.Je moet doen, en twee keer met hetzelfde menu, verhoging van het raam.Helaas, de ramen zijn te ontvangen van boodschappen: doel wm_syscommand, het type, de     een gebeurtenis = (platform),         programma formcreate (afzender: TObject);    , particuliere,         programma onappmessage (var het: TMSG; var - behandeling van de   booleaanse); en  ;,, programma formcreate... Een gebeurtenis. (de afzender: TObject); en een  ,   menucaption = "& over..."; var, de     ik: getallen,  ;   systemmenu: alleen    ;, menuiteminfo:tmenuiteminfo; beginnen,     application.onmessage:= onappmessage,     systemmenu:=; is GetSystemMenu (application.handle, valse); /////// ,   dezelfde code voor    ..., een einde te maken aan de procedures aan de hand van een gebeurtenis;,. Onappmessage (var het: TMSG; var booleaanse);  , begint,   als (msg.message = wm_syscommand) en (msg.wparam = 1101) en     begon,  .      showMessage ("');    ,     behandeling: = waar;,     voorbij, voorbij.