怎么样让托盘程序的托盘图标不出现在任务栏右下角

Question

哈哈哈，又有人问了，前两天讨论过。
http://www.csdn.net/expert/topic/107/107935.shtm

Answer 1

隐藏系统托盘
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;  
这是隐藏系统托盘的，你可以再搞个热键！：）