绝对高难！！！请问怎样控制修改Windows的开始按钮的图标和文字？(200分)

trybird · 2001-11-02

看了很多修改Windows开始按钮的例子。但如何实现的呢？ 参见http://homepage1.nifty.com/kazubon/tclock/indexzh-cn.html 还有http://www.ec-learn.com/gb/zpxz Super BobiBar (快捷工具栏V2.08) 424KB 最新版的Super BobiBar, 快捷方式及网址管理工具。加强了图标管理功能。新加入工具栏按钮显示方式。打开图标和分类管理功能更方便。 访问常用网址，一点即得。 可将快捷图标、网址、E-mail地址统统分类收入在一起的一个快捷按钮管理工具,可直接将文件或网址拖入工具栏，创建快捷方式非常方便。非常 Cool 的用户界面，方便你快速启动应用程序、快速访问常用网站。 可以控制Windows的"开始"按钮图标，控制Windows本身的应用程序工具条。 可控制显示或禁止桌面及桌面图标 可控制禁止关闭Windows系统。禁止Windows系统功能键 用户可自由设置工具栏属性。如显示方式、按钮方式等。提供单色，渐变，图片填充等图示方式。 还有http://download.lycos.com.cn/soft_tools/windowsqjgjl.html 软件名称：Windows 快捷工具栏 [国产] 软件授权：免费软件 注册费用： 使用平台：WIN95/98/NT 软件开发：HomePage   软件简介： 　　1．最新版的Super BobiBar, 非常好用的 Windows 快捷方式及网址管理工具。加强了图标管理功能。新加入工具栏按钮显示方式。打开图标和分类管理功能更方便。 　　2．提供上千种分类精彩网址供选择，访问常用网址，一点即得。 　　3．可将快捷图标、网址、E-mail地址统统分类收入在一起的一个快捷按钮管理工具,可直接将文件或网址拖入工具栏，创建快捷方式非常方便。非常 Cool 的用户界面，方便你快速启动应用程序、快速访问常用网站。 　　4．可以控制Windows的”开始”按钮图标，控制Windows本身的应用程序工具条。 　　5．可控制显示或禁止桌面及桌面图标。 　　6．可控制禁止关闭Windows系统。禁止Windows系统功能键。 　　7．用户可自由设置工具栏属性。如显示方式、按钮方式等。提供单色，渐变，图片填充等图示方式。 　　8．其他更多功能。！！！！值得一试。。。

zhhc · 2001-11-02

可以试试修改explorer.exe这个文件的资源

dingbaosheng · 2001-11-02

做广告??????

zhaqiong · 2001-11-02

我看也是做广告。 怎么给分呢？！

varphone · 2001-11-02

trybird · 2001-11-02

不是！ 兄弟们误解了！ 我找了好些资料，只是怎样把开始按钮因隐藏或屏蔽掉。 而这些我n年前就知道了，而怎样修改它的图标，我确实还不会。 用SendMessage()或PostMessage()发BM_SetImage消息都改变不了它的位图，只能把它隐掉，所以求贤！非做广告也！ SendMessage(StartButtonHandle,BM_SetImage,IMAGE_BITMAP,MyImage.Bitmap.Handle); 请教过一些高手，答曰：根本不可能！但我上面举了很多例子，人家能作到的，我们为什么……？

ydfq · 2001-11-02

xianjun · 2001-11-03

SendMessage(StartButtonHandle,BM_SetImage,IMAGE_BITMAP,MyImage.Bitmap.Handle); 这样是绝对不可行的，StartButtonHandle与MyImage处于不同进程

zl · 2001-11-05

YB_unique · 2001-11-05

这有何难，你给多少分？呵呵！别说换图，就是玩特效也不过如此！原理说穿了就很简单！ 先用FindWindowEx找到句柄，然后在窗体创建事件中加入CreateFrames创建Canvas， 再调用BuildFrames，就可以通过BitBlt随意画，最后要记得DestroyFrames(其实就是释放Buffer)喔！ 以上Frames相关的都是自定义过程，无非是创建位图等相关内容。 关键就是利用Frames过程画图。当然你利用StretchBlt函数代替也可以，不过速度慢些，而且特效也玩得不多。 举个用StretchBlt实现的简例：首先在FormCreate事件中通过 starthd =: FindWindow("Shell_TrayWnd", nil);  //获得任务栏窗口句柄 starthd =: FindWindowEx(starthd, HWND(0), "Button", nil);  //获得开始按钮窗口句柄 然后通过startButton =: GetDC(starthd);  //获得位图句柄 starthd =: GetDesktopWindow(); yourDesktop =: GetDC(starthd);  //获得桌面窗口句柄 好了，现在可以在ButtonClick中添加画图事件了。 StretchBlt(startButton,0,0,60,25,yourDesktop,0,0,60,25,srccopy);  //绘制位图到开始按钮上 最后退出用ReleaseDC释放位图句柄即可。 OK，清者自清，至言无言。

yyanghhong · 2001-11-06

run the code bwlow unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls, StdCtrls, GIFImage; const MAX_BUFFER =10; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     Timer1: TTimer;     Image1: TImage;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Timer1Timer(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }    public     HW : HWND;     DC : HDC;     R  : TRect;     FNumber : integer;     Buffer : array[1..MAX_BUFFER] of TBitmap;     procedure CreateFrames;     procedure DestroyFrames;     procedure BuildFrames;     { Public declarations }    end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.CreateFrames; var i : integer; begin   for i:=1 to MAX_BUFFER do    begin      Buffer := TBitmap.Create;      Buffer.Height := R.Bottom-R.Top;      Buffer.Width  := R.Right-R.Left;      Buffer.Canvas.Brush.Color := clBtnFace;      Buffer.Canvas.Pen.Color := clBtnFace;      Buffer.Canvas.Rectangle(0,0,Buffer.Width,Buffer.Height);    end; end; procedure TForm1.DestroyFrames; var i : integer; begin   for i:=1 to MAX_BUFFER do    begin      Buffer.Destroy;    end; end; // Prepare animation segments/sprites procedure TForm1.BuildFrames; var i,j,k,H,W : integer; Y : double; begin H := R.Bottom-R.Top; W := R.Right-R.Left; Image1.Width := W; Image1.Height:= H; for i := 1 to MAX_BUFFER-1 do //Buffer[MAX_BUFFER] is used to hold the original bitmap   for j:= 1 to W do    for k:=1 to H do     begin      Y := 2*Sin((j*360/W)*(pi/180)-20*i);      Buffer.Canvas.Pixels[j,k-Round(Y)]:= Buffer[6].Canvas.Pixels[j,k];     end; end;   procedure TForm1.Button1Click(Sender: TObject); begin //Get the original button face and will be used later to revert //the start button when animation is done   BitBlt(Buffer[MAX_BUFFER].Canvas.Handle,0,0,R.Right-R.Left,R.Bottom-R.Top,          DC,0,0,SRCCOPY);   BuildFrames;   Image1.Canvas.Draw(0,0,Buffer[MAX_BUFFER]);   Button2.Enabled := true;   if Edit1.Text <> '' then    Timer1.Interval := StrToInt(Edit1.Text)   else    begin     Timer1.Interval := 100;     Edit1.Text := '100';    end; end; procedure TForm1.Button2Click(Sender: TObject); begin     Timer1.Enabled := not Timer1.Enabled;   if not Timer1.Enabled then    begin      BitBlt(DC,0,0,R.Right-R.Left,R.Bottom-R.Top,          Buffer[MAX_BUFFER].Canvas.Handle,0,0,SRCCOPY);      Button2.Caption := '&Animate';      Button1.Enabled := true;    end   else    begin      Button2.Caption := '&Stop';      Button1.Enabled := false;    end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin   BitBlt(DC,0,0,R.Right-R.Left,R.Bottom-R.Top,          Buffer[FNumber].Canvas.Handle,0,0,SRCCOPY);   Inc(FNumber);   if (FNumber > MAX_BUFFER-1) then FNumber := 1; end; procedure TForm1.FormCreate(Sender: TObject); begin   HW := FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil);   GetWindowRect(HW,R);   DC := GetWindowDC(HW);   CreateFrames;   FNumber :=1; end; procedure TForm1.FormDestroy(Sender: TObject); begin Timer1.Enabled := false;   BitBlt(DC,0,0,R.Right-R.Left,R.Bottom-R.Top,          Buffer[MAX_BUFFER].Canvas.Handle,0,0,SRCCOPY);   ReleaseDC(HW,DC);   DestroyFrames; // don't ever forget to do this ! end; end.

PENGS · 2001-11-18

trybird 不好意思你所说的以上两个软件是在下的倔作。 还你认别人误会啦你给我做广告呢。 在此郑重说明,不要误会。 你说的问题好像不难实现有空我发个E-Mail给吧

PENGS · 2001-11-20

var  StartButton : hWnd;  NewImage    : TPicture; 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);   //改回   SendMessage(StartButton, BM_SetImage, 0, OldBitmap); end;

x_coffee · 2003-05-29

我也很想知道这个问题的答案 在win2000下，使用setwindowtext无法修改那个按钮的问题，使用 SendMessage(StartButton, BM_SetImage, 0, NewImage.Bitmap.Handle) 也只是把图片去掉而已 如果使用GDI来绘制的话，则只要窗口一刷新，效果就没了

小神通 · 2003-05-29

截获刷新的消息

旭日升 · 2003-05-29

FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0,'Button',nil) 获得，开始，按钮的名柄

绝对高难！！！请问怎样控制修改Windows的开始按钮的图标和文字？(200分)

trybird

Unregistered / Unconfirmed

zhhc

Unregistered / Unconfirmed

dingbaosheng

Unregistered / Unconfirmed

zhaqiong

Unregistered / Unconfirmed

varphone

Unregistered / Unconfirmed

trybird

Unregistered / Unconfirmed

ydfq

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

zl

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

yyanghhong

Unregistered / Unconfirmed

PENGS

Unregistered / Unconfirmed

PENGS

Unregistered / Unconfirmed

x_coffee

Unregistered / Unconfirmed

小神通

Unregistered / Unconfirmed

旭日升

Unregistered / Unconfirmed

Similar threads