網上也有這類小程式，用過2個都覺得不夠方便，所以就想著自己來實現一個。

     功能：響應快捷鍵或者按鈕隱藏（顯示）包含關鍵字的視窗和工作列圖示，可設定隱藏關鍵字、設定快捷鍵、程式最小化到托盤。

     主要包含以下幾個模組：

1. 設定和響應快捷鍵  2.設定關鍵字，列舉執行的視窗並隱藏之  3.程式最小化到托盤。 下面分別介紹一下程式的實現

1. 響應快捷鍵，最小化到托盤情況下響應全域性快捷鍵

     設定就不提了。

         a.   .h中新增

afx_msg LRESULT OnHotKey(WPARAM wParam,LPARAM lParam);

b.    

ON_MESSAGE(WM_HOTKEY,OnHotKey)

c.      響應函式：

LRESULT CADA_HideTaskDlg::OnHotKey(WPARAM wParam,LPARAM lParam)

{

if(HideTaskClass::m_Hide == TRUE)

{

gShowTaskBar();

HideTaskClass::m_Hide = FALSE;

}

else

{

gHideTaskBar();

HideTaskClass::m_Hide = TRUE;

}

return TRUE;

}

2.  列舉並隱藏視窗

a. 列舉視窗

EnumWindows(ADA_EnumWindowsProc,NULL);

b. 在列舉視窗函式內取得視窗名進行處理

BOOL CALLBACK ADA_EnumWindowsProc(HWND hWnd, LPARAM lParam)

{

char * bTaskName;

int cTxtLen,i;

CString cTitle,strtmp;

//be sure the current window is visible

if(::GetWindowLong(hWnd,GWL_STYLE)& WS_VISIBLE)

{

//Get the task name

cTxtLen = ::GetWindowTextLength(hWnd);

bTaskName = (char *) VirtualAlloc((LPVOID) NULL,(DWORD) (cTxtLen + 1), MEM_COMMIT, PAGE_READWRITE);

::GetWindowText(hWnd,bTaskName, cTxtLen + 1);

cTitle = bTaskName;

cTitle.MakeUpper();

for(i=0;i<HideTaskClass::m_HideString.GetSize();i++)

{

strtmp = HideTaskClass::m_HideString[i];

if(cTitle.Find(strtmp) >=0)

{

HideTaskClass::m_HideTaskTitle.Add(cTitle);

HideTaskClass::m_HideTaskCnt++;

}

}

}

return TRUE;

}

c.  隱藏找到匹配關鍵字的視窗

for(i=0;i<HideTaskClass::m_HideTaskTitle.GetSize();i++)

{                        

cTitle = HideTaskClass::m_HideTaskTitle[i];

CWnd* pWnd = CWnd::FindWindow(NULL, cTitle);

if( pWnd )

{

pWnd->ShowWindow(SW_HIDE);

HideTaskClass::m_Hide = TRUE;        

}

}

     d. 隱藏視窗

for(i=0;i<HideTaskClass::m_HideTaskTitle.GetSize();i++)

{                        

cTitle = HideTaskClass::m_HideTaskTitle[i];

CWnd* pWnd = CWnd::FindWindow(NULL, cTitle);

if( pWnd )

{

pWnd->ShowWindow(SW_HIDE);

HideTaskClass::m_Hide = TRUE;        

}

}

3. 最小化到托盤

原理就是視窗隱藏，然後在托盤建立一個圖示

a. 最小化點選後呼叫函式

void CADA_HideTaskDlg::OnSysCommand(UINT nID, LPARAM lParam)下面加入：

if(nID==SC_MINIMIZE)

SendToTray(); //最小化到托盤的函式自定義

b. 加一個成員函式

void CADA_HideTaskDlg::SendToTray()

{

NOTIFYICONDATA nid;//定義托盤圖示資訊

nid.cbSize=(DWORD)sizeof(NOTIFYICONDATA);

nid.hWnd=this->m_hWnd;

nid.uID=IDI_HT;// 圖示名

nid.uFlags=NIF_ICON|NIF_MESSAGE|NIF_TIP ;

nid.uCallbackMessage=WM_SHOWTASK;//圖示點選之後的自定義訊息名稱

nid.hIcon=LoadIcon(AfxGetInstanceHandle(),MAKEINTRESOURCE(IDI_HT));

strcpy(nid.szTip,"HideTask");//圖示資訊提示條

Shell_NotifyIcon(NIM_ADD,&nid);//在托盤區新增圖示

ShowWindow(SW_HIDE);//隱藏程式視窗

}

c. 設定message

#define WM_SHOWTASK (WM_USER +1)

-------以下是雙擊圖示重新顯示程式---------

d. 定義訊息處理成員函式

afx_msg LRESULT OnShowTask(WPARAM wParam,LPARAM lParam);

e.新增message map

ON_MESSAGE(WM_SHOWTASK,OnShowTask)

f.訊息響應

LRESULT CADA_HideTaskDlg::OnShowTask(WPARAM wParam, LPARAM lParam)

{

if(wParam!=IDI_HT)

return 1;

switch(lParam)

{

case WM_RBUTTONUP:                               //右鍵起來時彈出快捷選單

{

LPPOINT lpoint=new tagPOINT;

::GetCursorPos(lpoint);                //得到滑鼠位置

CMenu menu;

menu.CreatePopupMenu();                //宣告一個彈出式選單

//增加選單項“關閉”，點選則傳送訊息WM_CLOSE給主視窗（已隱藏），將程式結束。

menu.AppendMenu(MF_STRING,ID_APP_EXIT,"關閉程式");                         

menu.TrackPopupMenu(TPM_LEFTALIGN,lpoint->x,lpoint->y,this);//確定彈出式選單的位置

HMENU hmenu=menu.Detach();        

menu.DestroyMenu();

delete lpoint;

}

break;

case WM_LBUTTONDBLCLK:                           //雙擊左鍵的處理

{

this->ShowWindow(SW_SHOW);        

DeleteTray();

}

break;

default:

break;

}

return 0;

}

void CADA_HideTaskDlg::DeleteTray()

{

NOTIFYICONDATA nid;

nid.cbSize=(DWORD)sizeof(NOTIFYICONDATA);

nid.hWnd=this->m_hWnd;

nid.uID=IDI_HT;

nid.uFlags=NIF_ICON|NIF_MESSAGE|NIF_TIP ;

nid.uCallbackMessage=WM_SHOWTASK;                 //自定義的訊息名稱

nid.hIcon=LoadIcon(AfxGetInstanceHandle(),MAKEINTRESOURCE(IDI_HT));

strcpy(nid.szTip,"HideTask");                     

Shell_NotifyIcon(NIM_DELETE,&nid);                //在托盤區刪除圖示

}

以上是實現隱藏視窗和工作列圖示的幾個重要功能塊。將會將可執行的exe檔案放到CSDN的下載頻道中。歡迎討論