在一个应用程序中加载另一个应用程序

怎样在一个应用程序中加载另一个应用程序
作者 达明一排

// 运行一个应用程序
// -------------------------------------------------------------- //
// NewProcess() 函数的 nFlag 参数
enum{
NP_WAITFOR_INIT, // 等待新进程初始化完毕
NP_WAITFOR_EXIT, // 等待新进程运行完毕
NP_NOWAIT // 启运新进程后立即返回控制
};
HANDLE NewProcess( CString & strFileName, INT nFlag = NP_NOWAIT );

//////////////////////////////////////////////////////////////////////////
//
// 运行一个应用程序（调试通过）
//
// 最后修改时间（1998年月日）
//
HANDLE NewProcess( CString & strFileName, INT nFlag /*= NP_NOWAIT*/ )
{
STARTUPINFO StartupInfo;
::memset( &StartupInfo, 0, sizeof(STARTUPINFO) );
StartupInfo.cb = sizeof(STARTUPINFO);
PROCESS_INFORMATION ProcessInfo;

// 创建进程
if ( ! ::CreateProcess( strFileName, NULL, NULL, NULL,
FALSE, 0, NULL, NULL, &StartupInfo, &ProcessInfo ) )
{
return FALSE;
}

// 确定是否对已经生成的新进程等待
switch( nFlag )
{
case NP_WAITFOR_INIT:
// 等待新进程初始化完毕后再返回控制
if ( 0xFFFFFFFF == ::WaitForInputIdle( ProcessInfo.hProcess, INFINITE ) )
{
return FALSE;
}
return ProcessInfo.hProcess;
break;
case NP_WAITFOR_EXIT:
// 等待新进程运行结束后再返回控制
if ( WAIT_FAILED == ::WaitForSingleObject( ProcessInfo.hProcess, INFINITE ) )
{
return FALSE;
}
else
{
// 得到新进程的返回码
DWORD dwExitCode;
if ( ! ::GetExitCodeProcess( ProcessInfo.hProcess, &dwExitCode ) )
return FALSE;
return (HANDLE)dwExitCode;
}
break;
case NP_NOWAIT:
// 立即返回控制
return ProcessInfo.hProcess;
break;
default:
// 用户必须选择正确的 nFlag 参数
ASSERT( FALSE );
return FALSE;
break;
}
}