給系統功能表添加功能表項目

本例:

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure SysMenu(var msg: TWMMenuSelect); message WM_SYSCOMMAND;  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var  hm: HMENU;begin  hm := GetSystemMenu(Handle, False);  AppendMenu(hm, MFT_SEPARATOR, 0, nil);  AppendMenu(hm, MFT_STRING, 100, '新功能表項目');end;procedure TForm1.SysMenu(var msg: TWMMenuSelect);begin  if msg.IDItem = 100 then    ShowMessage('新功能表項目')  else inherited;end;end.