高分求解：怎样制作Windows系统的开始菜单！！！
高分求解：怎样制作Windows系统的开始菜单！！！
并替代它（当点击“开始”时弹出的是自己做的菜单）
***能不能附源程序？？？？？？？？
先出50分，先到先得！！！！！
问题点数：50、回复次数：15Top
1 楼yyyzzz（逍遥）回复于 2001-02-27 15:16:00 得分 0
我也想知道Top
2 楼qinzm（不归人）回复于 2001-02-27 18:01:00 得分 0
哈
我会Top
3 楼yhnlzzg（yhnlzzg）回复于 2001-03-01 10:24:00 得分 50
我也正在试，我找了下面的一段代码：
但是有闪烁，我正在解决。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls, ExtCtrls, ImgList;
type
TForm1 = class(TForm)
//设置窗体的弹出菜单
PopupMenu1: TPopupMenu;//ownerdraw=true;
a1: TMenuItem;//caption='',bitmap载入想要的图象：如bitmap:='d:\b.bmp
N1: TMenuItem;//caption=万事如意;break=mbbreak
//写a1的下面两个事件
procedure a1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width,
Height: Integer);
procedure a1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
Selected: Boolean);
procedure N1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.a1MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin
width:=a1.bitmap.width-16;
height:=a1.bitmap.height;
end;
procedure TForm1.a1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
ACanvas.draw(ARect.left,ARect.top,a1.bitmap);
end;
procedure TForm1.N1Click(Sender: TObject);
begin
showmessage('祝你好运！');
end;
end.Top
4 楼CoolSlob（）回复于 2001-03-04 08:49:00 得分 0
to: qinzm,可不可以看看？？？？Top
5 楼CoolSlob（）回复于 2001-03-04 08:50:00 得分 0
to :yhnlzzg,先给你点分
Top
6 楼hongsushou（红酥手）回复于 2001-03-04 11:49:00 得分 0
有必要吗?
你不会是要写win2001吧?Top
7 楼Ormus（残念）回复于 2001-03-04 15:01:00 得分 0
调用Hook,很容易做倒Top
8 楼iamfool（我是？？）回复于 2001-03-04 15:52:00 得分 0
电脑上有，Top
9 楼iamfool（我是？？）回复于 2001-03-04 15:53:00 得分 0
电脑上有，Top
10 楼iamfool（我是？？）回复于 2001-03-04 15:53:00 得分 0
电脑上有，Top
11 楼iamfool（我是？？）回复于 2001-03-04 15:53:00 得分 0
电脑上有，Top
12 楼CoolSlob（）回复于 2001-03-04 17:48:00 得分 0
2 hongsushou(红酥手):你搞错了，我是想知道是怎么回事，我看过了“美萍”，所以想知道
2 iamfool(我是？？)：电脑上哪？？？？？？？？？？？？？？？？？Top
13 楼yeqiufeng（叶秋枫）回复于 2001-03-25 10:36:00 得分 0
这个问题在论坛上也得有几万分在悬赏了
可就是没人能回答
关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注关注Top
14 楼Lin（林）回复于 2001-03-25 19:40:00 得分 0
我知道。可以Q我。Top
15 楼futurelife（来生缘）回复于 2001-03-25 20:48:00 得分 0
没事来看看Top
