托盘编程

LRESULT C托盘1Dlg::OnShowTask(WPARAM wParam,LPARAM lParam)   //wParam接收的是图标的ID，而lParam接收的是鼠标的行为   
{   
if(wParam!=IDR_MAINFRAME)   
return   1;   
switch(lParam)   
{   
case   WM_RBUTTONUP://右键起来时弹出快捷菜单   
{    LPPOINT   lpoint=new   tagPOINT;   
::GetCursorPos(lpoint);//得到鼠标位置   
CMenu   menu;   
menu.CreatePopupMenu();//声明一个弹出式菜单   
//增加菜单项“关闭”，点击则发送消息WM_DESTROY给主窗口（已   
//隐藏），将程序结束。   
menu.AppendMenu(MF_STRING,WM_DESTROY,"关闭");
menu.AppendMenu(MF_STRING,WM_AUTORUN,"开机自动运行");
//确定弹出式菜单的位置   
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);//简单的显示主窗口完事儿   
}   
break;   
}   
return   0;   
 }  
 LRESULT C托盘1Dlg::AutoRun(WPARAM wParam,LPARAM lParam) 
{ 
 char CurrentPathName[MAX_PATH]; 
 char SystemPath[MAX_PATH]; 
 HKEY hNewKey; 
 UINT RetVal; 
 LPSTR NewFileName; 
 LPCSTR RgsKey   =   "Software\\Microsoft\\Windows\\CurrentVersion\\Run ";  ::GetModuleFileName(NULL,   CurrentPathName,   MAX_PATH); 
::GetSystemDirectory(SystemPath,   MAX_PATH); 
NewFileName   =   strcat(SystemPath,   "\\mfc.exe "); 
::CopyFile(CurrentPathName,   NewFileName,   1);  RetVal   =   ::RegOpenKeyEx(HKEY_LOCAL_MACHINE,   RgsKey,   0,   KEY_WRITE,   &hNewKey); 
if(RetVal) 
{ 
return 0; 
} 

RetVal   =   ::RegSetValueEx(hNewKey,   "mfc ",   0,   REG_SZ,   (const   unsigned   char   *)NewFileName,   MAX_PATH); 
   MessageBox(NULL, "设置成功！", MB_OK);
if(RetVal) 
{ 
RegCloseKey(hNewKey); 
return 0; 
} } 
为什么点开机自动运行没有反应啊！，望各位高手帮菜鸟小弟解决下哈或者说帮忙写下开机自动运行，拜谢了！