求救！用oicq又不被老板抓的解决之道：隐藏oicq托盘

Question

编个程序让explore出错，然后托盘里的图标都会消失了。

Answer 1

h:=findwindow('Shell_TrayWnd',NIL);
SHOWWINDOW(H,SW_HIDE);

Answer 2

隐藏任务栏:hide_Taskbar
显示任务栏:show_Taskbar;

Answer 3

要是我只想让oicq的图标在托盘区消失呢？然后还使它的热键管用，我试过藏任务栏了， oicq就呼不出来了，呵呵，那还不如不用它。

Answer 4

任务栏隐藏了，Oicq能呼出的。
有个想法：把Oicq中的图标给提取出来，然后用其他icon替换了，好像有个工具可以替换，别问我怎么做，俺也不知道。
不过让ie出错倒是好办法，然后所有的tray都不见了。

Answer 5

可以编程序隐藏所有的ShellTray图标，我以前写过一个测试程序，连那个时钟都不见了。：）

Answer 6

Kingron 你倒是说说看啊，是怎么实现的？

Answer 7

刚才我研究了一下，只要每次运行能找到tray的窗口句柄就好办了，可是如何找呢，大家想办法吧我用spy++找到tray的text是空的

Answer 8

我以前实现了对SPEDIA的系统托盘的隐藏，隐藏OICQ的我想也可以吧！但是我最近比较的烦！

Answer 9

to Icebird(冰鸟)　:怎么改图标阿？

Answer 10

隐藏系统托盘
procedure hideStartbutton(visi:boolean);  
{visi 为 True 则显示，False则隐藏} 
Var  
  Tray, Child : hWnd;  
  C : Array[0..127] of Char;  
  S : String;  
Begin  
  Tray := FindWindow('Shell_TrayWnd', NIL);  
  Child := GetWindow(Tray, GW_CHILD);  
  While Child <> 0 do 
  Begin  
    If GetClassName(Child, C, SizeOf(C)) > 0 Then 
    Begin  
      S := StrPAS(C);  
      If UpperCase(S) = 'TRAYNOTIFYWND' then 
      begin  
        If Visi then ShowWindow(Child, 1)  
                else ShowWindow(Child, 0);  
      end;  
    End;  
    Child := GetWindow(Child, GW_HWNDNEXT);  
  End;  
End;  
这是隐藏系统托盘的，你可以再搞个热键！：）

Answer 11

同意 oysy(太阳之子)　，不过这样会隐藏所有的图标。：（
我想，还不知道TrayNotifyWnd的基类是什么，如果知道的话，那么就很简单了，只要发送一个消息给他即可，比如，如果是ListView的话，那么发送一个DeleteItem的消息就可以删除指定的某一个图标了，我用Spy++看不出他的基类是什么。那位知道，告诉一声。

Answer 12

我以前实现了对SPEDIA在系统托盘中
图标的隐藏，隐藏OICQ的我想也可以吧！但是我最近比较的烦！ 

Answer 13

如果是98，可以这样：
Ctrl，Alt，Delete 选择关闭explorer
看看你的系统托盘图标还在不在了？ 呵呵！！！

Answer 14

如果是w2000，可以在任务管理器里，终止explorer

Answer 15

隐藏图标：
procedure TForm1.Button7Click(Sender: TObject);
var i,j:integer;
nd:tNotifyIconData;
begin
st:=pchar(lb1.Items[lb1.itemindex]);
hw:=findwindow(nil,st);    //应用程序句柄
nd.cbsize:=sizeof(tNotifyIconData);
runstop:=false;
  for j:=0 to 1000 do //循环UID的值，如果不在这个范围可设的大点
  begin
  gg1.Progress :=j;
   application.ProcessMessages;
   if runstop=true then exit;
   nd.Wnd:=hw;     
   nd.uID :=j;
  if Shell_NotifyIcon(NIM_delete, @nd) then begin  //隐藏图标
   self.Caption :=inttostr(nd.uid);
   exit; end;
  end;
end;////////////////////
关闭DELPHI5错误？？？
关闭时显示非法操作，详细资料如下：
DELPHI32 在 0084:00000000 的模块
 <未知> 中导致无效页错误。
Registers:
EAX=00000000 CS=0000 EIP=00000000 EFLGS=00000000
EBX=00000000 SS=0000 ESP=00000000 EBP=00000000
ECX=00000000 DS=0000 ESI=00000000 FS=0000
EDX=00000000 ES=0000 EDI=00000000 GS=0000
Bytes at CS:EIP:Stack dump:我已经重新安装过，还是这样！

Answer 16

单位的网关上把qq的端口封住了，QQ再也无法登陆了，各位有何高招？？？

Answer 17

可以用vc把oicq的图标改成别的，
老板就看不出来了嘛

Answer 18

是用DDN连接上网，在一台Linux上（网关所在机器）对路由器进行了配置，把8000、1080等端口关闭了，所以通过局域网无法上QQ了。如何才能绕过该端口号来上QQ呢？

Answer 19

还有一个更简单的办法，不用编程
在qq的系统参数里有一个“在任务栏显示图标”的钩钩去掉不就OK了
记住设个热键