请问如何在程序运行中动态输出一个exe或dll文件？

[frman]

比如我有2个exe，A和B，想让A在运行时生成B文件，该如何做？

[菜牛]

可以将文件导入为资源，需要的时候导出。

[CodeProject-Jerry]

to
// 枚举资源类型
BOOL EnumTypesFunc(
HANDLE hModule,
LPTSTR lpType,
LONG lParam)
{
HRESULT hResult = S_OK;
char szBuffer[80] = {'\0'};

// 获取资源类型名称
if ((ULONG)lpType & 0xFFFF0000)
{
hResult = StringCchPrintf(szBuffer, 80/sizeof(TCHAR), "%s", lpType);
if (FAILED(hResult))
{
MessageBox( NULL, "注册失败！", "注册失败", MB_OK);
return FALSE;
}
}
else
{
hResult = StringCchPrintf(szBuffer, 80/sizeof(TCHAR), "%u", (USHORT)lpType);
if (FAILED(hResult))
{
MessageBox( NULL, "注册失败！", "注册失败", MB_OK);
return FALSE;
}
}


// 比较
if( strcmp( szBuffer, "DLL") == 0 )
{
EnumResourceNames( _Module.m_hInstResource,
lpType,
(ENUMRESNAMEPROC)EnumNamesFunc,
0);
}

return TRUE;

}

#include <map>

// 枚举资源名称
BOOL EnumNamesFunc(
HANDLE hModule,
LPCTSTR lpType,
LPTSTR lpName,
LONG lParam)
{
std::map< int, LPCSTR> mpInfo;
mpInfo.insert( std::pair<int, LPCSTR>( 202, "CWFEngine") );


char szBuffer[80] = {'\0'};
HRESULT hResult = NULL;


// 获取资源名称
if ((ULONG)lpName & 0xFFFF0000)
{
hResult = StringCchPrintf(szBuffer, 80/sizeof(TCHAR), "%s", lpName);
if (FAILED(hResult))
{
MessageBox( NULL, "注册失败！", "注册失败", MB_OK);
return FALSE;
}
}
else
{
hResult = StringCchPrintf(szBuffer, 80/sizeof(TCHAR), "%u", (USHORT)lpName);
if (FAILED(hResult))
{
MessageBox( NULL, "注册失败！", "注册失败", MB_OK);
return FALSE;
}
}

HANDLE hFile = NULL;
HRSRC hRes = NULL;
HGLOBAL hResLoad = NULL;
LPVOID lpResLock = NULL;
DWORD dwRcSize = 0;
char szPath[80] = "%SystemRoot%\\System32\\";

// 创建文件
GetSystemDirectory( szPath, 80);
StringCchCat( szPath, 80, "\\");
StringCchCat( szPath, 80, mpInfo[atoi(szBuffer)]);
StringCchCat( szPath, 80, ".dll");
hFile = ::CreateFile( szPath, FILE_ALL_ACCESS, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
if( hFile == NULL )
{
MessageBox( NULL, "注册失败！", "注册失败", MB_OK);
return FALSE;
}

// 保存资源
hRes = ::FindResource( _Module.m_hInstResource, MAKEINTRESOURCE(atoi(szBuffer)), "DLL");
if( hRes == NULL )
{
MessageBox( NULL, "注册失败！", "注册失败", MB_OK);
return FALSE;
}

hResLoad = ::LoadResource( _Module.m_hInstResource, hRes);
if( hResLoad == NULL )
{
MessageBox( NULL, "注册失败！", "注册失败", MB_OK);
return FALSE;
}

lpResLock = ::LockResource(hResLoad);
if( lpResLock == NULL )
{
MessageBox( NULL, "注册失败！", "注册失败", MB_OK);
return FALSE;
}

// 写入
dwRcSize = ::SizeofResource( _Module.m_hInstResource, hRes);

::WriteFile( hFile, lpResLock, dwRcSize, NULL, NULL);

::FlushFileBuffers(hFile);
::CloseHandle(hFile);
::FreeResource(hRes);

// 注册
::ShellExecute( NULL, NULL, "regsvr32.exe", szPath, NULL, SW_HIDE);



return TRUE;
}

[frman]

谢谢

[Snow_Ice11111]

Mark