, hvordan at tilføje punkter til systemet menu øverst til venstre i form., type,    tform1 = klasse (tform),   ...,      procedure formcreate (afsender: tobject),    private,      procedure wmsyscommand (var budskab: twmsyscommand); besked wm_syscommand;,,,,,,, procedure tform1. formcreate (afsender: tobject), konstant,    menucaption = &... ";, var,    jeg: heltal,    systemmenu: hmenu;,    menuiteminfo: tmenuiteminfo; begynder,    systemmenu: = getsystemmenu (håndtere falske);,    jeg: = getmenuitemcount (systemmenu),    fillchar (menuiteminfo, 7 (menuiteminfo) 0),    {ikke bruger størrelse (menuiteminfo), fordi den er nødvendig for,     windows 95),    menuiteminfo.cbsize: = 44,   ////////- separator,    menuiteminfo.fmask: = miim_type;,    menuiteminfo.ftype: = mft_separator;,    insertmenuitem (systemmenu, jeg er rigtigt, menuiteminfo),    //at tilføje om nu,    menuiteminfo.fmask: = miim_type eller miim_id;,    menuiteminfo.ftype: = mft_string;,    menuiteminfo.dwtypedata: = pchar (menucaption),    menuiteminfo.cch: = længde (menucaption),    menuiteminfo.wid: = 1101; //id skal være < $f000,    insertmenuitem (systemmenu, jeg + 1, sandt, menuiteminfo);,;,,, procedure tform1. wmsyscommand (var budskab: twmsyscommand), begynder,    arvet.,    sag message.cmdtype,      1101: showmessage ('about mig "),   ;,;, den foregående kodeks ikke tilføje en menupunkt med systemet mænde af anvendelsen knap i taskbar (når du right-click det).det er, fordi delphi skaber en skjult vindue.du er nødt til at gøre arbejdet, to gange for at tilføje de samme menu for det vindue.desværre, genstand, der modtager wm_syscommand budskab er, at vindue for:, type,    tform1 = klasse (tform),      procedure formcreate (afsender: tobject),    private,      procedure onappmessage (var - mng: tmsg; var behandlet: boolean),   ;,,,,,,, tform1 formcreate procedure. (afsender: tobject), konstant,    menucaption = &... ";, var,    jeg: heltal,    systemmenu: hmenu;,    menuiteminfo: tmenuiteminfo; begynder,    application.onmessage: = onappmessage;,    systemmenu: = getsystemmenu (application.handle, falske),    /samme kode som før,   ...,,, procedure tform1. onappmessage (var - mng: tmsg; var behandlet: boolean), begynder,    hvis (msg.message = wm_syscommand) og (msg.wparam = 1101),    begynder,      showmessage ('about mig "),      håndteres: = sandt,   ;,;,