//显示或隐藏标题在winlist中的所有窗口。

procedure HideWindow(WinList:TStringList);
var
  hCurWindow:HWND;
  WinText:Array[0..255] of char;
  i:integer;
begin
  if winList = nil then exit;
    hCurWindow:=GetWindow(FindWindow('Shell_TrayWnd',nil),GW_HWNDFirst);
  While hCurWindow<>0 do
  begin
     if GetWindowText(hCurWindow,@WinText,255)>0 then
     begin
        for i:=0 to winlist.Count-1 do
        begin
           if pos(lowercase(winlist.Strings[i]),lowercase(StrPas(@Wintext)))>0 then
           begin
             if IsShow then
               begin
                 //隐藏窗口
                 ShowWindow(GetWindow(hCurWindow,GW_OWNER),SW_HIDE);
                 ShowWindow(hCurWindow,SW_HIDE);
               end
             else
               begin
                 ShowWindow(GetWindow(hCurWindow,GW_OWNER),SW_SHOW);
                 ShowWindow(hCurWindow,SW_SHOW);
               end;
           end;
        end;
     end;
     hCurWindow:=GetWindow(hCurWindow,GW_HWNDNEXT);
  end;
end;

//取得托盘区图标列表所在的窗口句柄，是一个toolbarwindow32类的工具条

function GetTrayHandle():THandle;   
var
 wnd,wnd2:HWND;
begin
  wnd := FindWindow('Shell_TrayWnd',nil);
  wnd2 := FindWindowEx(wnd,0,'TrayNotifyWnd',nil);
  wnd := FindWindowEx(wnd2,0,'ToolbarWindow32',nil);
  if wnd=0 then
  begin
    wnd := FindWindowEx(wnd2,0,'TrayClockWClass',nil);
    wnd := GetNextWindow(wnd,GW_HWNDNEXT);
    wnd := FindWindowEx(wnd,0,'ToolbarWindow32',nil);
    result := wnd;
  end
  else
    result := wnd;
end;

//隐藏托盘图标的函数
procedure HideIcon(strHint:string;bHide:boolean);
var
 nItemCount,i:integer;
 chBuffer:array[0..255] of char;
 dwProcessID:DWORD;
 hProcess:Cardinal;
 adPointer:Pointer;
 nNumberOfBytesRead:Cardinal;
 bi:TTBBUTTON;
 hWindow:THandle;
 str1,str2:string;
begin
  str1 := lowercase(strHint);
  hWindow := GetTrayHandle;
  nItemCount := SendMessage(hWindow, TB_BUTTONCOUNT, 0, 0);
  GetWindowThreadProcessId(hWindow, @dwProcessID);
  hProcess := OpenProcess(PROCESS_VM_OPERATION + PROCESS_VM_READ + PROCESS_VM_WRITE,
                    false,
                    dwProcessID);
  adPointer := VirtualAllocEx(hProcess,
                            nil,
                            4096,
                            MEM_RESERVE + MEM_COMMIT,
                            PAGE_READWRITE);
    try
      for i:=0 to nItemCount do
      begin
           //获取工具条按钮的提示文字信息
         SendMessage(hWindow, TB_GETBUTTON, i, integer(adPointer));
         ReadProcessMemory(hProcess,
                          (adPointer),
                          @bi,
                          sizeof(bi),
                          nNumberOfBytesRead);
         SendMessage(hWindow, TB_GETBUTTONTEXT , bi.idCommand, integer(adPointer));
         ReadProcessMemory(hProcess,
                      adPointer,
                      @chBuffer,
                      sizeof(chBuffer),
                      nNumberOfBytesRead);

//比对文字，判断是否为要隐藏的图标
        str2:= lowercase(chBuffer);
        if pos(str1,str2)>0 then
        begin
          if bHide then
            sendmessage(hWindow,TB_HIDEBUTTON,bi.idCommand,makelong(1,0))
          else
            sendmessage(hWindow,TB_HIDEBUTTON,bi.idCommand,makelong(0,0));
          exit;
        end;
      end
    finally
       VirtualFreeEx(hProcess,
                    adPointer,
                    0,
                    MEM_RELEASE);
      CloseHandle(hProcess);
    end;
end;