将dll作为资源隐藏在进程中

*****************************************************************/
BOOL CICCardCtrl::LoadDll()
{
    HRSRC hResInfo;
HGLOBAL hRes;
HINSTANCE hInst;
    // 查找DLL资源
hInst = AfxGetInstanceHandle();
hResInfo = FindResource(hInst, (LPCTSTR)IDR_DLL1,"DLL" );
    // 加载资源
hRes = LoadResource(hInst,hResInfo );
// 计算DLL文件大小
DWORD dFileLength = SizeofResource(hInst, hResInfo );
// 获取系统路径
char pPath[MAX_PATH];
    GetSystemDirectory(pPath, MAX_PATH);
    // 生成文件名
strcpy(g_pFile, pPath);
strcat(g_pFile, "//HGIC.Dll");
    // 创建DLL文件
HANDLE hFile = CreateFile(g_pFile, GENERIC_WRITE | GENERIC_READ,
                            FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, CREATE_NEW,
                            FILE_ATTRIBUTE_NORMAL,NULL);
    DWORD dwNumberOfBytesWritten = 0;
   
// 写DLL文件
    if(hFile > 0)
        WriteFile(hFile, (LPCVOID)hRes, dFileLength, &dwNumberOfBytesWritten,   NULL);
    else
    MessageBox("加载Res不成功","提示信息",MB_OK);
// 释放文件句柄
    CloseHandle(hFile);

    // 动态加载DLL
DLLInst = LoadLibrary(g_pFile);
// 如果加载成功，找出函数地址
if (DLLInst!=NULL)
{
    Read_Host_S = (READ_HOST_S*)GetProcAddress(DLLInst, "Read_Host_S");
}
else
{
::MessageBox(NULL,"加载动态库失败！", "提示信息", MB_OK | MB_ICONINFORMATION);
        return false;
}
    return true;
}
把源码加密后以文本的方式嵌到程序资源中,当程序需要时从资源文件获取解密后通过CodeDom编译调用,如果代码不是很多情况可以直接在运行时通过CodeDom来创建代码编译调用.