替换开始菜单（要详细的啊）

Question

不知道有哪位大哥知道DELPHI怎么制做像万象哪样“替换开始菜单”的程序，知道的请详细说明一下好吗/
  求学啊！！！！

Answer 1

不懂 and 学习 and 关注。不过这么有难度的问题楼主放个200分也不嫌多啦。才50分实在太。

Answer 2

C:\Documents and Settings\All Users
或
C:\Documents and Settings\【your name
r】中用代码修改啊

Answer 3

不懂，有知道的给我一份，[email protected]

Answer 4

1.在论坛中搜索得到“开始”按钮的Handle，例如StartHandle2.建立一个Form1,加上一个Button1，OnCreate事件把它的Form1窗口大小和Button1的大小
  设置为和“开始”按钮差不多。3.在你的Form里面建立一个PopupMenu，例如MyPop。4.在OnFormShow加上下面的代码:
  SetParent(Form1.Handle,StartHandle);5.OnButton1Click事件：
 Mypop.Popup(0,Screen.Height-1)即可。

Answer 5

http://www.delphibbs.com/delphibbs/dispq.asp?lid=153912
http://www.delphibbs.com/delphibbs/dispq.asp?lid=169168
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=270080
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=271629
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=176861 下面的示例用一幅位图代替原来的开始按钮！  够完整的了吧！ 自己挖掘一下就可以做更多了！
var
   Form1: TForm1;
   StartButton : hWnd;
   OldBitmap   : THandle;
   NewImage : TPicture;procedure TForm1.FormCreate(Sender: TObject);
begin
 NewImage:=TPicture.create;
 NewImage.LoadFromFile('C:\Windows\Circles.BMP');
 StartButton := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0,'Button', nil);
 OldBitmap:=SendMessage(StartButton,BM_SetImage, 0, NewImage.Bitmap.Handle);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
 SendMessage(StartButton,BM_SetImage,0,OldBitmap);
 NewImage.Free;
end;