----WINDOWS附帶的時鐘程序有這樣一個特點：它的"Alwaysontop"選項是加在系
統(tǒng)菜單中的，這一技巧為該程序增色不少，同時也增加了其神秘感。我們
在程序設(shè)計時能否把自己的菜單項加入系統(tǒng)菜單呢？回答是肯定的，筆者
用Delphi方便的實現(xiàn)了這一功能。

----為實現(xiàn)這一功能，需要解決兩個問題：①、如何把用戶菜單項加入系統(tǒng)
菜單，②、如何才能響應(yīng)這一菜單項。

----要解決第一個問題，就需要獲取系統(tǒng)菜單的句柄，這一點可用API函數(shù)
getsystemmenu()來獲取（getmenu()只能獲取用戶菜單句柄），有了系統(tǒng)菜單句柄，便
可以用API函數(shù)appendmenu()向系統(tǒng)菜單中加入用戶菜單選項了。

----要解決第二個問題，需要重載WM_SYSCOMMAND或WM_MENUSELECT消息。我們
知道，當(dāng)用戶從菜單中選一項時，系統(tǒng)便會發(fā)出WM_COMMMAND消息，而對
于系統(tǒng)菜單，則會發(fā)出WM_SYSCOMMAND消息，重載這個消息，并判斷選中菜
單的ID值是否為用戶設(shè)定值便可以了。Delphi為我們提供了這方面的機制，使
我們能方便的實現(xiàn)這一功能。當(dāng)然，為實現(xiàn)這一功能我們還可以利用子類
或為系統(tǒng)加消息鉤子的方法來解決。

----為了便于實現(xiàn)，在這里，我們采用重載WM_SYSCOMMAND消息和填寫
WM_MENUSELECT消息結(jié)構(gòu)的方法來實現(xiàn)這一功能。

----下面為筆者為實現(xiàn)這一功能而開發(fā)的實例。

----程序在Delphi  ver1.0下調(diào)試通過。

program Psysmenu;
uses
  Forms,
  Sysmenu in '\SYSMENU.PAS' {Form1};

{$R *.RES}
begin
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit Sysmenu;

interface
uses
  SysUtils, WinTypes, WinProcs, Messages, Classes,
  Graphics, Controls,Forms, Dialogs;
type
  TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
  private
      procedure  user_sysmenu(var msg:twmmenuselect);
                               message wm_syscommand;

  public
        { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}

procedure  TForm1.user_sysmenu(var msg:TWMMENUSELECT);
begin
   if msg.iditem=100 then
      showmessage('     響應(yīng)系統(tǒng)菜單!')
      { 也 可 以setwindowpos()來實現(xiàn)處于最前端功能}
   else
      inherited;     { 作缺省處理,必須調(diào)用這一過程}
end;

procedure TForm1.FormCreate(Sender: TObject);
   var hmenu:integer;
begin
   hmenu:=getsystemmenu(handle,false);
   {獲取系統(tǒng)菜單句柄}
   appendmenu(hmenu,MF_SEPARATOR,0,nil);
   appendmenu(hmenu,MF_STRING,100,'加入系統(tǒng)菜單');
   {加入用戶菜單}
end;
end.