o*o : 关于“如何在程序中实现截获WINDOWS的开始按钮句柄，在鼠标点击时弹出自己的菜单？”这一问题我需要源码。我用100分来换，可以吗？(40分)

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
    procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
    procedure FormDestroy(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  btnNewStart:TButton;
  Shell_TrayWnd:Hwnd;
  SystemStartButton:Hwnd;
  MouseClicked:Boolean=False;
implementation

{$R *.DFM}
procedure TForm1.ButtonMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
begin
  if PtInRect(btnNewStart.BoundsRect,Point(X,Y)) and MouseClicked then
  begin

  end;
  MouseClicked:=False;
end;

procedure TForm1.ButtonMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
begin
  if PtInRect(btnNewStart.BoundsRect,Point(X,Y)) then
    MouseClicked:=True
  else
    MouseClicked:=False;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ShowWindow(SystemStartButton,SW_SHOW);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Shell_TrayWnd:=FindWindow('Shell_TrayWnd','');
  SystemStartButton:=GetWindow(Shell_TrayWnd,GW_CHILD);
  ShowWindow(SystemStartButton,SW_HIDE);
  btnNewStart:=TButton.CreateParented(Shell_TrayWnd);
  btnNewStart.Caption := '新开始';
  btnNewStart.OnMouseUp := ButtonMouseUp;
  btnNewStart.OnMouseDown := ButtonMouseDown;
  ShowWindow(btnNewStart.handle,SW_SHOW);
end;

end.