请问如何实现隐藏任务栏小图标？(150分)

大唐电信 · 2006-02-28

各位老大：         我想做一个隐藏任务栏上的某个小图标的程序，请给一些相关的方法？                                                                    谢谢！！

Avalon · 2006-02-28

XP下的 function TForm1.f_ShowTrayIcon(p_Index: Integer; p_Show: Boolean): Boolean; var v_hShellTray:  THandle; v_hTrayNotify: THandle; v_hToolBar:    THandle; begin Result := True; v_hShellTray := FindWindow('Shell_TrayWnd', nil); if v_hShellTray <> 0 then begin   v_hTrayNotify := FindWindowEx(v_hShellTray, 0, 'TrayNotifyWnd', nil);   if v_hTrayNotify <> 0 then   begin     v_hToolBar := FindWindowEx(v_hTrayNotify, 0, 'ToolbarWindow32', nil);     if v_hToolBar <> 0 then     begin       SendMessage(v_hToolBar, TB_HIDEBUTTON, p_Index, integer(not p_Show));     end;   end; end; end;

helium-he · 2006-02-28

procedure TForm1.FormCreate(Sender: TObject); begin  Application.Minimize;  ShowWindow(Handle,  SW_HIDE);  ShowWindow(Application.Handle, SW_HIDE);  SetWindowLong(Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE)or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); end;

大唐电信 · 2006-03-01

可是我怎么知道图标的ID号乃？比如我想隐藏金山词霸的图标，我该怎么做？ 也就是说我想获得任务栏的所有小图标及其相应的ID,以便显示在程序上，以后选择哪个就隐藏哪个。                                                                       谢谢

myveremy · 2006-03-01

有现成的控件CoolTrayIcon,你搜一下就找到了。

大唐电信 · 2006-03-01

不想用控件，想用API来实现。 各位老大：         怎么才能得到任务栏上的图标啊？

asoftforg · 2006-03-02

强烈建议你去看看Big Aphex 的afxrootkit的源代码

asoftforg · 2006-03-02

忘了..是afxrootkit2005 ，2ccc上有下

Avalon · 2006-03-03

这个是根据BCB改的原帖见 http://topic.csdn.net/t/20050301/18/3816203.html 这里我只写出列举不写删除 unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, CommCtrl, StdCtrls; type  TForm1 = class(TForm)    Memo1: TMemo;    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }    procedure f_ShowTrayIcon();  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.f_ShowTrayIcon(); var  hTrayWnd: THandle;  dwProcessID: DWORD;  hSourceHandle: THandle;  hTargetHandle: THandle;  pStart: Pointer;  pBufStart: Pointer;  Result : Integer;  dwAllocSize: DWORD;  ButtonCount: Integer;  v_Count: Integer;  v_Info: TBBUTTONINFO;  dwWrite,dwRead: DWORD;  TempBuf: PByte; const  TextBufSize   =   128; begin  hTrayWnd   :=   FindWindow('Shell_TrayWnd', nil);  hTrayWnd   :=   FindWindowEx(hTrayWnd,0,'TrayNotifyWnd',nil);  hTrayWnd   :=   FindWindowEx(hTrayWnd,0,'SysPager',nil); //<--2000不要这个  hTrayWnd   :=   FindWindowEx(hTrayWnd,0,'ToolbarWindow32',nil);  GetWindowThreadProcessId(hTrayWnd, @dwProcessID);  hSourceHandle   :=   OpenProcess(PROCESS_ALL_ACCESS,false,dwProcessID);  if hSourceHandle = 1 then  begin    Memo1.Lines.Add('Error   Open   Process.   Err=' + SysErrorMessage(GetLastError()));  end;  Result := Integer(DuplicateHandle(GetCurrentProcess(),hSourceHandle,GetCurrentProcess(),                            @hTargetHandle,PROCESS_ALL_ACCESS,false,0));  if Result = 0 THEN  begin    Memo1.Lines.Add('Error   Open   Process.   Err=' + SysErrorMessage(GetLastError()));  end;  dwAllocSize := sizeof(TBBUTTONINFO);  pStart    :=   VirtualAllocEx(hTargetHandle,nil,dwAllocSize,MEM_COMMIT,PAGE_READWRITE);  pBufStart :=   VirtualAllocEx(hTargetHandle,nil,TextBufSize,MEM_COMMIT,PAGE_READWRITE);  if (pStart = nil) and (pBufStart = nil) then  begin    Memo1.Lines.Add('Error   Open   Process.   Err=' + SysErrorMessage(GetLastError()));  end;  ButtonCount := SendMessage(hTrayWnd,TB_BUTTONCOUNT,0,0);  Memo1.Lines.Add('Count   =   ' + IntToStr(ButtonCount));  for v_Count := 0 to ButtonCount - 1 do  begin    v_Info.cbSize   :=   dwAllocSize;    v_Info.dwMask   :=   TBIF_TEXT;    v_Info.pszText   :=   LPTSTR(pBufStart);    WriteProcessMemory(hTargetHandle,pStart,Pointer(@v_Info),dwAllocSize, dwWrite);    New(TempBuf);    TempBuf := AllocMem(TextBufSize);    ZeroMemory(TempBuf,TextBufSize);    WriteProcessMemory(hTargetHandle,pBufStart,Pointer(TempBuf),TextBufSize,dwWrite);    SendMessage(hTrayWnd,TB_GETBUTTONINFO,v_Count, iNTEGER(PTBBUTTONINFO(pStart)));//   Button);    ReadProcessMemory(hTargetHandle,Pointer(pBufStart),Pointer(TempBuf),TextBufSize,dwRead);    Memo1.Lines.Add(STRING(TempBuf));    Dispose(TempBuf);  end; end; procedure TForm1.FormCreate(Sender: TObject); begin  f_ShowTrayIcon; end; end.

herbertokin · 2006-03-03

上面的仁兄讲得很清楚

kalvin666 · 2006-03-03

强人，是的，仁兄讲的很清楚了，支持，大家也都可以学学

大唐电信 · 2006-03-06

各位老大，这些代码得到的都是图标的弹出信息，怎么才能得到图标本身乃？                                                                谢谢！

请问如何实现隐藏任务栏小图标？(150分)

大唐电信

Unregistered / Unconfirmed

Avalon

Unregistered / Unconfirmed

helium-he

Unregistered / Unconfirmed

大唐电信

Unregistered / Unconfirmed

myveremy

Unregistered / Unconfirmed

大唐电信

Unregistered / Unconfirmed

asoftforg

Unregistered / Unconfirmed

asoftforg

Unregistered / Unconfirmed

Avalon

Unregistered / Unconfirmed

herbertokin

Unregistered / Unconfirmed

kalvin666

Unregistered / Unconfirmed

大唐电信

Unregistered / Unconfirmed

Similar threads