穿越叶萝莉月灵仙子:利用ITaskbarList接口隐藏任务栏图标

来源：百度文库 编辑：偶看新闻 时间：2024/04/30 12:15:42

利用ITaskbarList接口隐藏任务栏图标

分类： Delphi 2008-10-28 20:57 332人阅读 评论(0) 收藏 举报

其实只用一个API函数就能实现：ShowWindow(Application.Handle,SW_HIDE)，今天看到另一种方法，利用ITaskbarList接口隐藏任务栏图标，缺点是ALT+TAB或最小化后又显示出来了，但这个方法可以引伸出其它应用。

 

  1. //uses ActiveX 
  3. type
  4.   ITaskbarList = interface(IUnknown)
  5.     ['{56FDF344-FD6D-11d0-958A-006097C9A090}']
  6.     procedure HrInit; safecall;
  7.     procedure AddTab(hWindow: HWND); safecall;
  8.     procedure DeleteTab(hWindow: HWND); safecall;
  9.     procedure ActivateTab(hWindow: HWND); safecall;
  10.     procedure SetActiveAlt(hWindow: HWND); safecall;
  11.   end;
  13. procedure TForm1.btn1Click(Sender: TObject);
  14. var
  15.   TaskbarList:ITaskbarList;
  16. const
  17.   CLSID_TaskbarList:TGUID='{56FDF344-FD6D-11d0-958A-006097C9A090}';
  18.   IID_ITaskbarList:TGUID='{602D4995-B13A-429b-A66E-1935E44F4317}';
  19. begin
  20.   CoCreateInstance(CLSID_TaskbarList,Nil,CLSCTX_INPROC_SERVER,IID_ITaskbarList,TaskbarList);
  21.   TaskbarList.HrInit();
  22.   TaskbarList.DeleteTab(Application.Handle);
  23. end;

还有一种方法：
ExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);

怎么隐藏任务管理器 如何隐藏任务进程? 任务管理器取消隐藏 隐藏任务CH图标 求《凯旋》隐藏任务！！！！ xp自动隐藏任务管理器 口袋妖怪叶绿有没有隐藏任务 暗黑2中的隐藏任务 隐藏右下角的任务图标 极品飞车9隐藏任务问题！ RRPC接口缓冲区溢出漏洞怎么利用 RRPC接口缓冲区溢出漏洞怎么利用 IBMR40的隐藏硬盘怎么利用 关于笔记本的隐藏USB蓝牙接口 利用梦游者完成艰巨的任务！！？ 利用任务管理器快速关机的坏处 怎样利用有限资源完成管理任务 怎么隐藏任务拦里我想隐藏的图标吗? 怎么样隐藏右边的任务图标? 把任务隐藏了怎麽恢复 暗嘿破坏神2隐藏任务 怎样将任务栏的特定任务隐藏 如何显示任务栏上隐藏的任务??? 暗黑破坏神II有哪些隐藏任务？