VC调用WinRAR压缩文件

     最近同学让帮忙写个小工具，基本要求如下：

按照以下要求调用WinRAR订做的程序：
1》 12abc，底板.dwg、
12abc.drw、
12abc.prt，然后如果存在.dwg文件就把这三个都以12abc开头命名的文件打包，打包文件以.dwg的文件名命名，后缀可以是.rar或者.zip，
最后的打包文件要以“12abc，底板”命名
2》对了，另外加一个a.frm的文件在里面，这个文件是固定的，每个打包文件里都放一个
3》如果可以在重命名的时候把小写转换为大写就更好了

并提供了一个bat文件供参考，bat内容如下：

 

@echo off
set "winrar=d:\Program Files\WinRAR\WinRAR.exe"
for /f "delims=" %%a in ('dir /a-d/b *.drw') do if exist "%%~na*.dwg" "%winrar%" a -afzip "%%~na" "%%~na.prt" "%%~na*.dwg" "a.frm" "%%a"

 

 代码下载：http://download.csdn.net/detail/stone_sky/4564602

     考虑到同学并不希望看到界面，故创建Win32 控制台应用程序，程序代码如下：

#include <afx.h>
#include <afxwin.h>
#include <tchar.h>  //添加对 TCHAR 的支持
#include <atlstr.h> //添加对 CString 的支持
#include <shellapi.h>//添加对ShellExcute()的支持，需要导入类库 shell32.lib
#include <iostream>
using namespace std;

//从注册表获取WinRAR的安装路径
CString GetWinRARPath()
{
    HKEY hKEY;  
    LPCTSTR Rgspath = _T("Software\\WinRAR");  
    LONG ret = RegOpenKeyEx(HKEY_LOCAL_MACHINE, Rgspath, 0, KEY_READ, &hKEY); 
    if(ret != ERROR_SUCCESS)  
    {
        MessageBox(NULL, _T("获取WinRAR安装路径失败！"), _T("出错啦~！"), MB_OK);
        RegCloseKey(hKEY);  
        return _T("");  
    }  
    // 读取键值内容  
    DWORD type = REG_SZ;  
    BYTE PathInfo[MAX_PATH];  
    DWORD dwInfoSize = MAX_PATH; 
    ret = RegQueryValueEx(hKEY, _T("exe32"), NULL, &type, PathInfo, &dwInfoSize);  
    if(ret != ERROR_SUCCESS)  
    {   
        MessageBox(NULL, _T("没有安装WinRar解压缩软件，请先安装WinRar解压缩软件"), _T("出错啦~！"), MB_OK);  
        RegCloseKey(hKEY);  
        return _T("");  
    }
    CString Path = (wchar_t*)PathInfo;
    return Path;
} 
void _tmain(int argc, TCHAR **argv) 
{ 
    TCHAR Buffer[MAX_PATH];
    DWORD dwRet;
    //1. 判断处理的类型（默认按照 zip 格式处理）
    CString strDealType=_T("zip");//默认按照zip格式处理替换
    if(argc < 2)
    {
        // cout<<"默认将按照Zip格式进行替换"<<endl;
    }
    else
    {
        strDealType=argv[1];
        strDealType.MakeLower();
        if (strDealType!=_T("rar") && strDealType!=_T("zip"))
        {
            cout<<_T("输入处理的类型参数有误！将默认按照 zip 格式处理")<<endl;
            strDealType=_T("zip");//默认按照zip格式处理
            //  Sleep(1000);
        }
    }
    //2.获取当前目录
    dwRet = GetCurrentDirectory(MAX_PATH, Buffer);
    if( dwRet == 0 )
    {
        printf("GetCurrentDirectory failed (Error Code:%d)\n", GetLastError());
        return;
    }
    if(dwRet > MAX_PATH)
    {
        printf("Buffer too small; need %d characters\n", dwRet);
        return;
    }
    //3.从注册表中读取winrar的安装路径
    CString strWinRARPath=GetWinRARPath();
    if(strWinRARPath.IsEmpty())
    {   
        return;
    }
    //4.查找当前目录下drw文件
    CFileFind finder;
    CString strFoundFile=_T("");
    CString strFileNameWithOutExt=_T(""); 
    CString strOtherTypeFile2=_T("");
    CString strOtherTypeFile3=_T("");
    CString strOtherTypeFile4=_T("a.frm");
    CString strConveredName=_T("");
    CString strDestinName=_T("");
    BOOL bTemVal=FALSE;
    CString strCommandParam=_T("");

    BOOL bWorking = finder.FindFile(_T("*.drw"));
     while (bWorking)//找到了 .drw
    {
        bWorking = finder.FindNextFile();
        strFoundFile=finder.GetFileName();//eg. 12Acd.acb
        strFileNameWithOutExt=strFoundFile.Left(strFoundFile.GetLength()-wcslen(_T(".drw"))); //12Acd
        CFileFind finderOthers;
        strOtherTypeFile2=strFileNameWithOutExt+_T(".prt");
        bTemVal = finderOthers.FindFile(strOtherTypeFile2);
        if (bTemVal)//找到了 .prt
        {
            strOtherTypeFile3=strFileNameWithOutExt+_T("*.dwg");//如何使用正则表达式？？？
            bTemVal = finderOthers.FindFile(strOtherTypeFile3);
            if (bTemVal)//找到了 "，底板.dwg"
            {   
                finderOthers.FindNextFile();
                strOtherTypeFile3=finderOthers.GetFileName();

                bTemVal=finderOthers.FindFile(strOtherTypeFile4);
                if (bTemVal)
                {
                    strConveredName=strOtherTypeFile3.Left(strOtherTypeFile3.GetLength()-wcslen(_T(".dwg")));
                    strConveredName.MakeUpper();//将文件名转换为大写
                    strDestinName=strConveredName+_T(".")+strDealType;

                    if (strDealType==_T("zip"))
                    { 
                        strCommandParam=_T("a -afzip \"")+strDestinName+_T("\"  \"")+strFoundFile+_T("\"  \"")+strOtherTypeFile2+_T("\"  \"")+strOtherTypeFile3+_T("\"  \"")+strOtherTypeFile4+_T("\"");
                    }
                    else//strDealType为"rar"
                    {
                        strCommandParam=_T("a -afrar \"")+strDestinName+_T("\"  \"")+strFoundFile+_T("\"  \"")+strOtherTypeFile2+_T("\"  \"")+strOtherTypeFile3+_T("\"  \"")+strOtherTypeFile4+_T("\"");
                    }
                }
                //5.进行压缩处理
                HANDLE handle=ShellExecute(NULL,NULL,strWinRARPath,strCommandParam,NULL,SW_SHOW);
                if((int)handle<=32)
                {
                    continue;//该文件压缩出错！进行下一个文件的压缩处理
                }

            }
        } 
    }
}

该程序使用时：
1.系统安装winRAR
2.将该exe放到要进行压缩的文件所在的文件夹。
3.程序默认压缩为zip格式的，如果想压缩为rar格式的，则可以在该程序所在目录下为该程序创建一个快捷方式，右键该快捷方式，点击属性按钮，在目标后边添加参数：空格+RAR
 
参数的大小写随意，如果输入的参数不对，程序仍会按照zip格式进行压缩。