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

其实只用一个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);