VC释放EXE资源文件

1、工程A要释放的程序是一个简单的MessageBox，源码如下：

 

 #include

 int WINAPI WinMain( HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nShowCmd )
 {
     MessageBox(NULL,"资源文件释放实例！","测试",MB_OK);
     return 0;
 }

 

     编译生成MsgBox.exe，复制到工程B目录。

 

 

 

2、工程B为基于MFC对话框程序，先插入已经存EXE（或DLL）文件到VC资源文件中，如下图：

 

    A、切换到资源视图，在上面单机右键：

 

 

    B、单击"Import..."，找到刚刚工程A编译生成的MsgBox.exe文件：

 

 

    C、设置导入的资源类型名，这个名称将是该函数的第三个参数，我们取资源类型名为EXE：

 

 

    D、此时，资源视图中多了一个类型为:EXE，资源ID为:IDR_EXE1，如下图：

 

 

    E、增加一个按钮，添加响应事件，添加成员函数BOOL ReleaseRes(CString strFileName,WORD wResID,CString strFileType)，具体代码如下： 

 

 HCURSOR CTestDlg::OnQueryDragIcon()
 {
     return (HCURSOR) m_hIcon;
 }

 void CTestDlg::OnBtnRelease()
 {
     // TODO: Add your control notification handler code here
     if(ReleaseRes("Test.exe",(WORD)IDR_EXE1,"EXE"))
         MessageBox("释放文件成功！","提示",MB_OK);
     else
         MessageBox("释放文件失败！","提示",MB_OK);
 }

 /************************************************************************/
 /* 函数说明：释放资源中某类型的文件
 /* 参    数：新文件名、资源ID、资源类型
 /* 返 回 值：成功返回TRUE，否则返回FALSE
 /* By:Koma   2009.07.24 23:30
 /************************************************************************/
 BOOL CTestDlg::ReleaseRes(CString strFileName,WORD wResID,CString strFileType)
 {
     // 资源大小
     DWORD   dwWrite=0;

     // 创建文件
     HANDLE  hFile = CreateFile(strFileName, GENERIC_WRITE,FILE_SHARE_WRITE,NULL,
                                 CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);
     if ( hFile == INVALID_HANDLE_VALUE )
     {
         return FALSE;
     }

     // 查找资源文件中、加载资源到内存、得到资源大小
     HRSRC   hrsc =  FindResource(NULL, MAKEINTRESOURCE(wResID), strFileType);
     HGLOBAL hG = LoadResource(NULL, hrsc);
     DWORD   dwSize = SizeofResource( NULL,  hrsc);

     // 写入文件
     WriteFile(hFile,hG,dwSize,&dwWrite,NULL);
     CloseHandle( hFile );
     return TRUE;
 }

 

 

3、该函数是可重用类，本程序代码在VC6 + WIN SP3测试通过，运行效果如下图：