公司不让聊天了，所以我想做个程序，挡住所有托盘的小图标，我的程序里已经有几个小图标了（没有小企鹅），怎么让我这个程序挡住系统的托盘呢？(75分)

公司不让聊天了，所以我想做个程序，挡住所有托盘的小图标，我的程序里已经有几个小图标了（没有小企鹅），怎么让我这个程序挡住系统的托盘呢？

是QQ吗？可以选择不在托盘里显示图标的。：）

是啊。不过问题到是不错，最好是可以修改托盘图标，且这个图标是别的程序。
前些天好象看到一个，找不到了：（

嘿嘿，我也想知道。

有意思啊!别忘了告诉我怎么弄!

win9x里好像办不到

关注

不过QQ可以设置不在系统栏显示图标，最小化后什么
看不到了

我做的程序怎么总在任务栏后面，能让它跑到任务栏前面呢？


xf-wangyi：‘不过QQ可以设置不在系统栏显示图标，最小化后什么
看不到了’ 那我怎么调出来呢？

快捷键啊
Ctrl+Alt+Z

这是我写的替换系统时间显示的代码，改一下就可以用来隐藏图标区。试试吧!

unit Unit2;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Panel1: TPanel;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
t:SYSTEMTIME;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
th:hwnd;
r:trect;
dc:hdc;
begin
th:=FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'TrayNotifyWnd',nil),0,'TrayClockWClass',nil);
getwindowrect(th,r);
windows.setparent(panel1.Handle,th);
MoveWindow(panel1.Handle,0,0,r.Right-r.Left,r.Bottom-r.Top,true);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
getlocaltime(t);
panel1.Caption:='My '+inttostr(t.wHour)+':'+inttostr(t.wMinute);
// panel1.Hint:=inttostr(t.wYear)+'年'+inttostr(t.wMonth)+'月'+inttostr(t.wDay)+'日';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
getlocaltime(t);
panel1.Caption:=inttostr(t.wHour)+':'+inttostr(t.wMinute);
// panel1.Hint:=inttostr(t.wYear)+'年'+inttostr(t.wMonth)+'月'+inttostr(t.wDay)+'日';
end;

end.

那么更改系统的开始菜单应该怎么做呢？

多人接受答案了。