儲存Icon檔案

void SaveIcon(HICON   hIconToSave,   LPCTSTR   sIconFileName)  
{  
 if(hIconToSave==NULL   ||   sIconFileName==NULL)  
  return;  
 //warning:   this   code   snippet   is   not   bullet   proof.  
 //do   error   check   by   yourself   [masterz]  
 PICTDESC   picdesc;  
 picdesc.cbSizeofstruct   =   sizeof(PICTDESC);  
 picdesc.picType   =   PICTYPE_ICON   ;                          
 picdesc.icon.hicon   =   hIconToSave;  
 IPicture*   pPicture=NULL;  
 OleCreatePictureIndirect(&picdesc,   IID_IPicture,   TRUE,(VOID**)&pPicture);  
 LPSTREAM   pStream;  
 CreateStreamOnHGlobal(NULL,TRUE,&pStream);  
 LONG   size;  
 HRESULT   hr=pPicture->SaveAsFile(pStream,TRUE,&size);  
 char   pathbuf[1024];  
 strcpy(pathbuf,sIconFileName);  
 CFile   iconfile;  
 iconfile.Open(pathbuf,   CFile::modeCreate|CFile::modeWrite);  
 LARGE_INTEGER   li;  
 li.HighPart   =0;  
 li.LowPart   =0;  
 ULARGE_INTEGER   ulnewpos;  
 pStream->Seek(   li,STREAM_SEEK_SET,&ulnewpos);  
 ULONG   uReadCount   =   1;  
 while(uReadCount>0)  
 {  
  pStream->Read(pathbuf,sizeof(pathbuf),&uReadCount);  
  if(uReadCount>0)  
   iconfile.Write(pathbuf,uReadCount);  
 }  
 pStream->Release();  
 iconfile.Close();  
}