CreateProcess() запускает программу, но не показывает её главное окно.(

TSpawnProcStruct* CreateMonitoringProcess(){
    STARTUPINFO si;
    SECURITY_ATTRIBUTES sa;
    sa.nLength = sizeof(sa);
    sa.lpSecurityDescriptor = 0;
    sa.bInheritHandle = false;
    ZeroMemory(&si, sizeof(si));
    si.cb = sizeof(si);
    TSpawnProcStruct *sps = new TSpawnProcStruct;
    Spawns->Add(sps);
    char handle[40];
    ltoa(ULONG(Application->Handle),handle,10);
    AStr path, s = ExtractFilePath(Application->ExeName);
    s = s.SubString(1, s.LastDelimiter("\\") - 1);
    s = s.SubString(1, s.LastDelimiter("\\") - 1);
    path = s + "\\" + MONITOR_DIR + MONITOR_EXE_FILE;
    SetMessage(" starting monitor: " + path, mt_info);
    CreateProcess(LPCTSTR(path.c_str()), LPTSTR(handle), &sa, &sa, false,
        CREATE_DEFAULT_ERROR_MODE | CREATE_SEPARATE_WOW_VDM, 0, 0, &si, &sps->pi);
    return sps;
}

//--------------------------------------------------------------------------------------------------
 
struct TSpawnProcStruct : public TObject{
    PROCESS_INFORMATION pi;
    TSpawnMsgFunc *spawn_func;
    TSpawnProcStruct();
    ~TSpawnProcStruct();
};
//--------------------------------------------------------------------------------------------------
 
TSpawnProcStruct::TSpawnProcStruct(){
    ZeroMemory(&pi, sizeof(pi));
    spawn_func = 0;
}                                     
 
TSpawnProcStruct::~TSpawnProcStruct(){
    if (pi.hProcess){
        TerminateProcess(pi.hProcess, 0);
    }
}